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.

diff --git a/lib/File/Copy.pm b/lib/File/Copy.pm
index 954d228..984ef79 100644 (file)
--- 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;
         }
     }