diff options
| author | John Malmberg <wb8tyw@gmail.com> | 2009-01-10 12:40:40 -0600 |
|---|---|---|
| committer | Craig A. Berry <craigberry@mac.com> | 2009-01-10 17:36:03 -0600 |
| commit | 37930f0f2f3c60737f8ce994bd695a224792b7e2 (patch) | |
| tree | f3de4e759de54a1763231b1156764c4622df0163 /lib/File | |
| parent | e919cd191e45e033b47752ea7012c74216201dbd (diff) | |
| download | perl-37930f0f2f3c60737f8ce994bd695a224792b7e2.tar.gz | |
File::Copy fixes for VMS follow-up
Message-id: <4968EBA8.8090207@gmail.com>
The eval block needs to capture local $SIG{__DIE__} to prevent modules
with signal trapping from failing when VMS::Feature is not present.
Diffstat (limited to 'lib/File')
| -rw-r--r-- | lib/File/Copy.pm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lib/File/Copy.pm b/lib/File/Copy.pm index 954d228ffd..984ef799b6 100644 --- a/lib/File/Copy.pm +++ b/lib/File/Copy.pm @@ -55,7 +55,7 @@ if ($^O eq 'MacOS') { my $use_vms_feature = 0; BEGIN { if ($^O eq 'VMS') { - if (eval 'require VMS::Feature') { + if (eval { local $SIG{__DIE__}; require VMS::Feature; }) { $use_vms_feature = 1; } } |