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 | |
| 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')
| -rw-r--r-- | lib/FileCache.pm | 5 | ||||
| -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 |
4 files changed, 8 insertions, 5 deletions
diff --git a/lib/FileCache.pm b/lib/FileCache.pm index 2386532cb0..8e1fe446a5 100644 --- a/lib/FileCache.pm +++ b/lib/FileCache.pm @@ -72,6 +72,7 @@ unless you terminated before repeatedly calling cacheout. require 5.006; use Carp; +use Config; use strict; no strict 'refs'; # These are not C<my> for legacy reasons. @@ -88,7 +89,9 @@ sub import { *{$pkg.'::close'} = \&cacheout_close; # Reap our children - @{"$pkg\::SIG"}{'CLD', 'CHLD', 'PIPE'} = ('IGNORE')x3; + ${"$pkg\::SIG"}{'CLD'} = 'IGNORE' if $Config{sig_name} =~ /\bCLD\b/; + ${"$pkg\::SIG"}{'CHLD'} = 'IGNORE' if $Config{sig_name} =~ /\bCHLD\b/; + ${"$pkg\::SIG"}{'PIPE'} = 'IGNORE' if $Config{sig_name} =~ /\bPIPE\b/; # Truth is okay here because setting maxopen to 0 would be bad return $cacheout_maxopen = $args{maxopen} if $args{maxopen}; 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($_); |