diff options
| author | Karl Williamson <public@khwilliamson.com> | 2011-03-02 08:15:55 -0700 |
|---|---|---|
| committer | Karl Williamson <public@khwilliamson.com> | 2011-03-02 08:15:55 -0700 |
| commit | 5da2a9e66f07aa4d2d451438340ee61e50f01bc1 (patch) | |
| tree | ea1af77f2589a50f5802804e6aaa287f0e44cd7d /lib/File | |
| parent | a7884731cc2c00efdff1cab7d33dff2538c670cb (diff) | |
| download | perl-5da2a9e66f07aa4d2d451438340ee61e50f01bc1.tar.gz | |
Revert "In File::Copy, convert two regexps to explicit ranges, instead of using /i"
This reverts commit 7b7d8b152c027b50b260244da6f7c17a010279d6.
The performance issue that prompted this commit has been fixed.
Diffstat (limited to 'lib/File')
| -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; } |