[PATCH] lib/FileCache.t needs to use valid filename chars

[Craig A. Berry]

I don't know how many file systems accept an apostrophe within a 
filename, but ODS-2 on VMS is not one of them.


$ gdiff -u "lib/FileCache.t;-0" "lib/FileCache.t"
--- lib/FileCache.t;-0  Mon Apr 15 10:31:04 2002
+++ lib/FileCache.t     Mon Apr 15 22:53:00 2002
@@ -60,7 +60,7 @@
 }
 
 {# Test 5: that close is overridden properly
-     cacheout local $_ = "Foo'Bar";
+     cacheout local $_ = "Foo_Bar";
      print $_ "Hello World\n";
      close($_);
      open($_, "+>$_");
@@ -74,7 +74,7 @@
 {# Test close override
      package Bob;
      use FileCache;
-     cacheout local $_ = "Foo'Bar";
+     cacheout local $_ = "Foo_Bar";
      print $_ "Hello World\n";
      close($_);
      open($_, "+>$_");
@@ -85,4 +85,4 @@
 }
 );
 
-unlink @files, "Foo'Bar";
+1 while unlink @files, "Foo_Bar";
[end of patch]