From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Sun, 30 Sep 2001 05:05:18 +0000 (+0000)
Subject: #12272 wasn't right, it introduced an extra ().
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=f3a406cb3dacd8b543e3de42fd5e238916bff9b2;p=p5sagit%2Fp5-mst-13.2.git

#12272 wasn't right, it introduced an extra ().

p4raw-id: //depot/perl@12278
---

diff --git a/lib/utf8_heavy.pl b/lib/utf8_heavy.pl
index d0bc5bf..ed3da17 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);