diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2001-06-08 19:21:56 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-06-08 19:21:56 +0000 |
| commit | a72deede5275fd576481e74da7ab7f9a7ef046ad (patch) | |
| tree | 3fab8efed29bf2fb291110eb9038975f7abfde1a /lib | |
| parent | e67aeab17662a70a2316911b8ee5b43fdf6f7241 (diff) | |
| download | perl-a72deede5275fd576481e74da7ab7f9a7ef046ad.tar.gz | |
More \p{In...} testing, combined with \N{...}.
p4raw-id: //depot/perl@10481
Diffstat (limited to 'lib')
| -rw-r--r-- | lib/utf8_heavy.pl | 5 |
1 files changed, 3 insertions, 2 deletions
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#; |