diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2001-10-04 04:45:00 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-10-04 04:45:00 +0000 |
| commit | c8b5a1e3d8998f2de29f95d38a8b3fe0b0ac6613 (patch) | |
| tree | 93628e475a2a5df98f087e67af57f79afda03182 /lib/utf8_heavy.pl | |
| parent | 1ac13f9adaf79f6c342d2230ad9a2b9a7918e1b2 (diff) | |
| download | perl-c8b5a1e3d8998f2de29f95d38a8b3fe0b0ac6613.tar.gz | |
Unicode properties saga continues.
p4raw-id: //depot/perl@12335
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 f73b9eb88f..06b2266b11 100644 --- a/lib/utf8_heavy.pl +++ b/lib/utf8_heavy.pl @@ -28,7 +28,7 @@ sub SWASHNEW { $type = 'Lampersand' if $type =~ /^(?:Is)?L&$/; - my $inprefix = substr(lc($type), 0, 3); + my $inprefix = substr(lc($type), 0, 2); if (exists $utf8::InPat{$inprefix}) { my $In = $type; for my $k (keys %{$utf8::InPat{$inprefix}}) { |