diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2001-10-04 03:42:04 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-10-04 03:42:04 +0000 |
| commit | 1ac13f9adaf79f6c342d2230ad9a2b9a7918e1b2 (patch) | |
| tree | 42a9540e9c6f819e494837489e5084b1e167ce86 /lib/utf8_heavy.pl | |
| parent | 1b907316ce9a27a760590c1349443905f1afc6f2 (diff) | |
| download | perl-1ac13f9adaf79f6c342d2230ad9a2b9a7918e1b2.tar.gz | |
Yet more Unicode properties.
p4raw-id: //depot/perl@12334
Diffstat (limited to 'lib/utf8_heavy.pl')
| -rw-r--r-- | lib/utf8_heavy.pl | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/lib/utf8_heavy.pl b/lib/utf8_heavy.pl index 3efd421b55..f73b9eb88f 100644 --- a/lib/utf8_heavy.pl +++ b/lib/utf8_heavy.pl @@ -26,6 +26,8 @@ sub SWASHNEW { $type =~ s/^In(?:[-_]|\s+)?(?!herited$)//i; $type =~ s/\s+$//; + $type = 'Lampersand' if $type =~ /^(?:Is)?L&$/; + my $inprefix = substr(lc($type), 0, 3); if (exists $utf8::InPat{$inprefix}) { my $In = $type; @@ -43,9 +45,8 @@ sub SWASHNEW { unless (defined $file) { # This is separate from 'To' in preparation of Is.pl (a la In.pl). - if ($type =~ /^Is([A-Z][A-Za-z]*|L&)$/ || $type =~ /^(L&)$/ ) { - my $cat = $1 eq 'L&' ? 'L' : $1; - $file = "unicore/Is/$cat"; + if ($type =~ /^Is([A-Z][A-Za-z]*)$/) { + $file = "unicore/Is/$1"; } elsif ((not defined $file) && $type =~ /^To([A-Z][A-Za-z]*)$/) { $file = "unicore/To/$1"; } |