From a72deede5275fd576481e74da7ab7f9a7ef046ad Mon Sep 17 00:00:00 2001
From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Fri, 8 Jun 2001 19:21:56 +0000
Subject: More \p{In...} testing, combined with \N{...}.

p4raw-id: //depot/perl@10481
---
 lib/utf8_heavy.pl | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

(limited to 'lib')

diff --git a/lib/utf8_heavy.pl b/lib/utf8_heavy.pl
index a843737164..b73cea0463 100644
--- a/lib/utf8_heavy.pl
+++ b/lib/utf8_heavy.pl
@@ -27,9 +27,10 @@ sub SWASHNEW {
     my $encoding = $enc{$caller} || "unicode";
     (my $file = $type) =~ s!::!/!g;
     if ($file =~ /^In(.+)/) {
+	my $In = $1;
 	defined %utf8::In || do "$encoding/In.pl";
-	if (exists $utf8::In{$1}) {
-	    $file = "$enconding/In/$utf8::In{$1}";
+	if (exists $utf8::In{$In}) {
+	    $file = "$encoding/In/$utf8::In{$In}";
 	}
     } else {
 	$file =~ s#^(Is|To)([A-Z].*)#$1/$2#;
-- 
cgit v1.2.1