summaryrefslogtreecommitdiff
path: root/lib/FileCache
diff options
context:
space:
mode:
authorCraig A. Berry <craigberry@mac.com>2003-06-21 05:31:59 -0500
committerJarkko Hietaniemi <jhi@iki.fi>2003-06-22 16:31:05 +0000
commit42bff5bd56ed198158112ff1a7f7240c78970df7 (patch)
tree759d524dfb5c8d25e14ab73b8c9171f85103c977 /lib/FileCache
parentccc0622a5e7618aee538d32edf64a5e4687cd025 (diff)
downloadperl-42bff5bd56ed198158112ff1a7f7240c78970df7.tar.gz
FileCache 1.03 broken on VMS -- possible patch
From: "Craig A. Berry" <craigberry@mac.com> Message-ID: <3EF47A6F.9060904@mac.com> p4raw-id: //depot/perl@19839
Diffstat (limited to 'lib/FileCache')
-rw-r--r--lib/FileCache/t/01open.t2
-rw-r--r--lib/FileCache/t/03append.t2
-rw-r--r--lib/FileCache/t/05override.t4
3 files changed, 4 insertions, 4 deletions
diff --git a/lib/FileCache/t/01open.t b/lib/FileCache/t/01open.t
index d516aea2d0..dfbb7b0a0b 100644
--- a/lib/FileCache/t/01open.t
+++ b/lib/FileCache/t/01open.t
@@ -2,7 +2,7 @@
use FileCache;
use vars qw(@files);
BEGIN {
- @files = qw(foo bar baz quux Foo'Bar);
+ @files = qw(foo bar baz quux Foo_Bar);
chdir 't' if -d 't';
#For tests within the perl distribution
diff --git a/lib/FileCache/t/03append.t b/lib/FileCache/t/03append.t
index 5a08a1e779..07edb7aa79 100644
--- a/lib/FileCache/t/03append.t
+++ b/lib/FileCache/t/03append.t
@@ -2,7 +2,7 @@
use FileCache maxopen=>2;
use vars qw(@files);
BEGIN {
- @files = qw(foo bar baz quux Foo'Bar);
+ @files = qw(foo bar baz quux Foo_Bar);
chdir 't' if -d 't';
#For tests within the perl distribution
diff --git a/lib/FileCache/t/05override.t b/lib/FileCache/t/05override.t
index 6fdf873600..a807c25640 100644
--- a/lib/FileCache/t/05override.t
+++ b/lib/FileCache/t/05override.t
@@ -8,12 +8,12 @@ BEGIN {
END;
}
END{
- unlink("Foo'Bar");
+ unlink("Foo_Bar");
}
print "1..1\n";
{# Test 5: that close is overridden properly within the caller
- cacheout local $_ = "Foo'Bar";
+ cacheout local $_ = "Foo_Bar";
print $_ "Hello World\n";
close($_);
print 'not ' if fileno($_);