diff options
| author | Karl Williamson <public@khwilliamson.com> | 2011-03-02 08:15:05 -0700 |
|---|---|---|
| committer | Karl Williamson <public@khwilliamson.com> | 2011-03-02 08:15:05 -0700 |
| commit | a7884731cc2c00efdff1cab7d33dff2538c670cb (patch) | |
| tree | b26de7ad7e8b318f4ccceb19ca88d16cbdff478a /dist/Cwd | |
| parent | 76220d5e23b8dfc7d1b0accf1b99c079f0b43419 (diff) | |
| download | perl-a7884731cc2c00efdff1cab7d33dff2538c670cb.tar.gz | |
Revert "In Cwd, convert two regexps to explicit ranges, instead of using /i"
This reverts commit be6c6a23f06d680159ce323c1906d297abbe85cd.
The performance issue that prompted this commit has been fixed.
Diffstat (limited to 'dist/Cwd')
| -rw-r--r-- | dist/Cwd/Cwd.pm | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/dist/Cwd/Cwd.pm b/dist/Cwd/Cwd.pm index 68ac4cac54..4683e103b8 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.37'; +$VERSION = '3.36'; 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 =~ /^[ETet1]/; + $unix_rpt = $env_unix_rpt =~ /^[ET1]/i; } 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 =~ /^[ETet1]/; + $efs = $env_efs =~ /^[ET1]/i; } return $efs; } |