diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2001-12-15 23:00:56 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-12-15 23:00:56 +0000 |
| commit | 76ccdbe266e63a2a3ac21a782e44a6b13093ac7f (patch) | |
| tree | ce19b6064432638f8077e10d4ba99eda431bbb35 /lib/utf8_heavy.pl | |
| parent | ad8caead208db46a636808a4d2bb49d677c061a4 (diff) | |
| download | perl-76ccdbe266e63a2a3ac21a782e44a6b13093ac7f.tar.gz | |
Support \p{All}, \p{IsAssigned}, \p{IsUnassigned}.
p4raw-id: //depot/perl@13706
Diffstat (limited to 'lib/utf8_heavy.pl')
| -rw-r--r-- | lib/utf8_heavy.pl | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/lib/utf8_heavy.pl b/lib/utf8_heavy.pl index 0cc71f4368..9e18772b61 100644 --- a/lib/utf8_heavy.pl +++ b/lib/utf8_heavy.pl @@ -55,6 +55,8 @@ sub SWASHNEW { unless (defined $file) { defined %utf8::In || do "unicore/In.pl"; $type = 'Lampersand' if $type =~ /^(?:Is)?L&$/; + $type = 'Assigned' if $type =~ /^(?:Is)?Assigned$/i; + $type = 'Unassigned' if $type =~ /^(?:Is)?Unassigned$/i; if ($type =~ /^(In|(?:Script|Block)\s*=\s*)?[- _]?(?!herited$)(.+)/i) { my $incat = $1; my $intype = $2; |