From: Craig A. Berry <craigberry@mac.com>
Date: Mon, 15 Apr 2002 22:06:14 +0000 (-0500)
Subject: lib/FileCache.t needs to use valid filename chars
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=58858581d2d18dc2bff021fb2c755408c36929c4;p=p5sagit%2Fp5-mst-13.2.git

lib/FileCache.t needs to use valid filename chars
   From: "Craig A. Berry" <craigberry@mac.com>
   Message-Id: <a05101501b8e144aa1d4a@[172.16.52.1]>

p4raw-id: //depot/perl@15942
---

diff --git a/lib/FileCache.t b/lib/FileCache.t
index 81359f5..87bfd95 100755
--- a/lib/FileCache.t
+++ b/lib/FileCache.t
@@ -60,7 +60,7 @@ my @files = qw(foo bar baz quux);
 }
 
 {# 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 @@ q(
 {# 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 @@ q(
 }
 );
 
-unlink @files, "Foo'Bar";
+1 while unlink @files, "Foo_Bar";