diff options
Diffstat (limited to 'lib')
| -rw-r--r-- | lib/File/Copy.pm | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/lib/File/Copy.pm b/lib/File/Copy.pm index d274567713..1cf084bb91 100644 --- a/lib/File/Copy.pm +++ b/lib/File/Copy.pm @@ -22,7 +22,7 @@ sub syscopy; sub cp; sub mv; -$VERSION = '2.22'; +$VERSION = '2.21'; require Exporter; @ISA = qw(Exporter); @@ -60,7 +60,7 @@ sub _vms_unix_rpt { $unix_rpt = VMS::Feature::current("filename_unix_report"); } else { my $env_unix_rpt = $ENV{'DECC$FILENAME_UNIX_REPORT'} || ''; - $unix_rpt = $env_unix_rpt =~ /^[ETet1]/; + $unix_rpt = $env_unix_rpt =~ /^[ET1]/i; } return $unix_rpt; } @@ -73,7 +73,7 @@ sub _vms_efs { $efs = VMS::Feature::current("efs_charset"); } else { my $env_efs = $ENV{'DECC$EFS_CHARSET'} || ''; - $efs = $env_efs =~ /^[ETet1]/; + $efs = $env_efs =~ /^[ET1]/i; } return $efs; } |