From: John Malmberg <wb8tyw@gmail.com>
Date: Sat, 10 Jan 2009 18:40:40 +0000 (-0600)
Subject: File::Copy fixes for VMS follow-up
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=37930f0f2f3c60737f8ce994bd695a224792b7e2;p=p5sagit%2Fp5-mst-13.2.git

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
--- 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;
         }
     }