From c590f3618f2d45852734e8e3af071fdc1099e114 Mon Sep 17 00:00:00 2001
From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Sat, 29 Sep 2001 21:32:33 +0000
Subject: Nasty recursion trap if one would match Unicode.

p4raw-id: //depot/perl@12272
---
 lib/utf8_heavy.pl | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'lib/utf8_heavy.pl')

diff --git a/lib/utf8_heavy.pl b/lib/utf8_heavy.pl
index e86b727397..d0bc5bff00 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[- _]?(.+?)$/i) {
+    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);
-- 
cgit v1.2.1