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.pm | |
| 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.pm')
| -rw-r--r-- | lib/FileCache.pm | 5 |
1 files changed, 4 insertions, 1 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}; |