diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2001-09-30 05:05:18 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-09-30 05:05:18 +0000 |
| commit | b92ec2777c4bda801968b03d1889fd7958a69718 (patch) | |
| tree | 0879e240df9004b3836e0576d892c7f5330002ef /lib/utf8_heavy.pl | |
| parent | bb1eb18466186de4b47fd0b6df4484c3f4530fc0 (diff) | |
| download | perl-b92ec2777c4bda801968b03d1889fd7958a69718.tar.gz | |
#12272 wasn't right, it introduced an extra ().
p4raw-id: //depot/perl@12278
Diffstat (limited to 'lib/utf8_heavy.pl')
| -rw-r--r-- | lib/utf8_heavy.pl | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lib/utf8_heavy.pl b/lib/utf8_heavy.pl index d0bc5bff00..ed3da176ac 100644 --- a/lib/utf8_heavy.pl +++ b/lib/utf8_heavy.pl @@ -26,7 +26,7 @@ sub SWASHNEW { while (($caller = caller($i)) eq __PACKAGE__) { $i++ } my $encoding = $enc{$caller} || "unicore"; (my $file = $type) =~ s!::!/!g; - if ($file =~ /^(In|in|IN|iN)[- _]?(.+?)\s*$/) { # /i would cause recursion. + if ($file =~ /^(?:In|in|IN|iN)[- _]?(.+?)\s*$/) { # /i would cause recursion. my $In = $1; defined %utf8::In || do "$encoding/In.pl"; my $prefix = substr(lc($In), 0, 3); |