Re: [blead-227-gbd2db5d] File::Copy fixes for VMS

[John Malmberg]

Craig A. Berry wrote:

On Jan 4, 2009, at 1:45 PM, John Malmberg wrote:

File::Copy needs to know what mode that VMS is in.
 
I gave it a proper version number -- I don't think this is a dual-life  
module.  I also modified the new BEGIN block slightly so it will only  
check for the VMS::Feature module when running on VMS.

Thanks, one change that I misseed:

The eval block needs to capture local $SIG{__DIE__} to prevent modules 
with signal trapping from failing when VMS::Feature is not present.

-John
wb8...@gmail.com
Personal Opinion Only

--- /rsync_root/perl/lib/File/Copy.pm   Thu Jan  8 10:12:08 2009
+++ lib/File/Copy.pm    Sat Jan 10 12:30:51 2009
@@ -24,7 +24,7 @@
 sub cp;
 sub mv;
 
-$VERSION = '2.15';
+$VERSION = '2.16';
 
 require Exporter;
 @ISA = qw(Exporter);
@@ -55,7 +55,7 @@
 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;
         }
     }