diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2001-10-03 16:47:30 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-10-03 16:47:30 +0000 |
| commit | 9b4e380a0c2cfcae174bddd911f9f6437cd7d53f (patch) | |
| tree | ace0dd8984ce67ae8bf0e74dfa0a3b7dcae8d86e /lib/utf8_heavy.pl | |
| parent | dee4fd60ac48abef5b51dded36ba5990e53c7daf (diff) | |
| download | perl-9b4e380a0c2cfcae174bddd911f9f6437cd7d53f.tar.gz | |
Unicode properties: fix L& (the #12319 didn't allow L&,
only IsL&) and Inherited (negative lookahead good);
add tests for Common, Inherited, and L&.
p4raw-id: //depot/perl@12320
Diffstat (limited to 'lib/utf8_heavy.pl')
| -rw-r--r-- | lib/utf8_heavy.pl | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lib/utf8_heavy.pl b/lib/utf8_heavy.pl index 0961509af8..3efd421b55 100644 --- a/lib/utf8_heavy.pl +++ b/lib/utf8_heavy.pl @@ -23,7 +23,7 @@ sub SWASHNEW { defined %utf8::In || do "unicore/In.pl"; - $type =~ s/^In(?:[-_]|\s+)?//i; + $type =~ s/^In(?:[-_]|\s+)?(?!herited$)//i; $type =~ s/\s+$//; my $inprefix = substr(lc($type), 0, 3); @@ -43,7 +43,7 @@ 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&)$/) { + if ($type =~ /^Is([A-Z][A-Za-z]*|L&)$/ || $type =~ /^(L&)$/ ) { my $cat = $1 eq 'L&' ? 'L' : $1; $file = "unicore/Is/$cat"; } elsif ((not defined $file) && $type =~ /^To([A-Z][A-Za-z]*)$/) { |