diff options
author | Craig A. Berry <craigberry@mac.com> | 2003-06-21 05:31:59 -0500 |
---|---|---|
committer | Jarkko Hietaniemi <jhi@iki.fi> | 2003-06-22 16:31:05 +0000 |
commit | 42bff5bd56ed198158112ff1a7f7240c78970df7 (patch) | |
tree | 759d524dfb5c8d25e14ab73b8c9171f85103c977 /lib/FileCache | |
parent | ccc0622a5e7618aee538d32edf64a5e4687cd025 (diff) | |
download | perl-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.t | 2 | ||||
-rw-r--r-- | lib/FileCache/t/03append.t | 2 | ||||
-rw-r--r-- | lib/FileCache/t/05override.t | 4 |
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($_); |