diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2001-03-07 00:41:16 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-03-07 00:41:16 +0000 |
| commit | f586891147968a00cb7ac4921d1b2a415e9091bd (patch) | |
| tree | 81cd9518c13a30d930f7df17e124fd94fbd3de9d /lib | |
| parent | 8692993118c7bb6d29743e2f564d11368140b2bf (diff) | |
| download | perl-f586891147968a00cb7ac4921d1b2a415e9091bd.tar.gz | |
More tweakage on the Unicode character class descriptions.
p4raw-id: //depot/perl@9062
Diffstat (limited to 'lib')
| -rwxr-xr-x | lib/unicode/mktables.PL | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/lib/unicode/mktables.PL b/lib/unicode/mktables.PL index bb253055d2..dbc2ed1842 100755 --- a/lib/unicode/mktables.PL +++ b/lib/unicode/mktables.PL @@ -31,7 +31,8 @@ mkdir "To", 0755; ['IsSpacePerl', '$cat =~ /^Z/ || $code =~ /^(0009|000A|000C|000D)$/', ''], - ['IsBlank', '$cat =~ /^Z[^lp]$/ || $code eq "0009"', ''], + ['IsBlank', '$code =~ /^(0020|0009)$/ || + $cat =~ /^Z[^lp]$/', ''], ['IsDigit', '$cat =~ /^Nd$/', ''], ['IsUpper', '$cat =~ /^L[ut]$/', ''], ['IsLower', '$cat =~ /^Ll$/', ''], |