In perl.git, the branch blead has been updated <http://perl5.git.perl.org/perl.git/commitdiff/be6c6a23f06d680159ce323c1906d297abbe85cd?hp=6cba11c82282d9124d0cade24e1423f7fa2a3a0a>
- Log ----------------------------------------------------------------- commit be6c6a23f06d680159ce323c1906d297abbe85cd Author: Nicholas Clark <[email protected]> Date: Fri Feb 4 14:10:24 2011 +0000 In Cwd, 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 Cwd is invoked before the Unicode tables have been processed. M dist/Cwd/Cwd.pm commit 7b7d8b152c027b50b260244da6f7c17a010279d6 Author: Nicholas Clark <[email protected]> Date: Fri Feb 4 13:53:50 2011 +0000 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. M lib/File/Copy.pm ----------------------------------------------------------------------- Summary of changes: dist/Cwd/Cwd.pm | 6 +++--- lib/File/Copy.pm | 6 +++--- 2 files changed, 6 insertions(+), 6 deletions(-) diff --git a/dist/Cwd/Cwd.pm b/dist/Cwd/Cwd.pm index 4683e10..68ac4ca 100644 --- a/dist/Cwd/Cwd.pm +++ b/dist/Cwd/Cwd.pm @@ -171,7 +171,7 @@ use strict; use Exporter; use vars qw(@ISA @EXPORT @EXPORT_OK $VERSION); -$VERSION = '3.36'; +$VERSION = '3.37'; my $xs_version = $VERSION; $VERSION = eval $VERSION; @@ -222,7 +222,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; } @@ -235,7 +235,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; } diff --git a/lib/File/Copy.pm b/lib/File/Copy.pm index 1cf084b..d274567 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; } -- Perl5 Master Repository
