This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
In Cwd, convert two regexps to explicit ranges, instead of using /i
authorNicholas Clark <nick@ccl4.org>
Fri, 4 Feb 2011 14:10:24 +0000 (14:10 +0000)
committerNicholas Clark <nick@ccl4.org>
Fri, 4 Feb 2011 14:10:24 +0000 (14:10 +0000)
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.

dist/Cwd/Cwd.pm

index 4683e10..68ac4ca 100644 (file)
@@ -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;
 }