diff options
| author | Nicholas Clark <nick@ccl4.org> | 2011-02-04 13:53:50 +0000 |
|---|---|---|
| committer | Nicholas Clark <nick@ccl4.org> | 2011-02-04 13:57:39 +0000 |
| commit | 7b7d8b152c027b50b260244da6f7c17a010279d6 (patch) | |
| tree | 06c72a3451e1c7642c3b90631a61f9f736942130 | |
| parent | 6cba11c82282d9124d0cade24e1423f7fa2a3a0a (diff) | |
| download | perl-7b7d8b152c027b50b260244da6f7c17a010279d6.tar.gz | |
In File::Copy, convert two regexps to explicit ranges, instead of using /i
Since change 56ca34cada940c7f moved the folding of ranges from runtime to
compile time, these VMS-only regexps would incur a startup cost penalty on
all platforms.
This also removes build-time warnings when File::Copy is invoked before the
Unicode tables have been processed.
| -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 1cf084bb91..d274567713 100644 --- a/lib/File/Copy.pm +++ b/lib/File/Copy.pm @@ -22,7 +22,7 @@ sub syscopy; sub cp; sub mv; -$VERSION = '2.21'; +$VERSION = '2.22'; 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 =~ /^[ET1]/i; + $unix_rpt = $env_unix_rpt =~ /^[ETet1]/; } 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 =~ /^[ET1]/i; + $efs = $env_efs =~ /^[ETet1]/; } return $efs; } |