diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2002-01-04 03:13:50 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2002-01-04 03:13:50 +0000 |
| commit | d8f6a7325d6b2ec46e8cdc1ec4b5e1ad4a86abd0 (patch) | |
| tree | 40086000840dea65ab375c45400c54ca6bd5f8a3 /lib/unicore | |
| parent | c1b16575eb03bf1d5b9bf6b20b2765d6375a227d (diff) | |
| download | perl-d8f6a7325d6b2ec46e8cdc1ec4b5e1ad4a86abd0.tar.gz | |
Add U+0085, U+2028, and U+2029 to \s under Unicode.
p4raw-id: //depot/perl@14052
Diffstat (limited to 'lib/unicore')
| -rw-r--r-- | lib/unicore/Is/SpacePerl.pl | 1 | ||||
| -rw-r--r-- | lib/unicore/mktables | 4 |
2 files changed, 3 insertions, 2 deletions
diff --git a/lib/unicore/Is/SpacePerl.pl b/lib/unicore/Is/SpacePerl.pl index 3866aee9ee..cc8f50a638 100644 --- a/lib/unicore/Is/SpacePerl.pl +++ b/lib/unicore/Is/SpacePerl.pl @@ -5,6 +5,7 @@ return <<'END'; 0009 000A 000C 000D 0020 +0085 00A0 1680 2000 200B diff --git a/lib/unicore/mktables b/lib/unicore/mktables index 34d138826b..067af24b6a 100644 --- a/lib/unicore/mktables +++ b/lib/unicore/mktables @@ -134,7 +134,7 @@ sub gencat { ||= [], $code); # 005F: SPACING UNDERSCORE $op->($Cat->{Word} ||= [], $code) - if $cat =~ /^[LMN]/ or $code eq "005F"; + if $cat =~ /^[LMN]/ || $code eq "005F"; $op->($Cat->{Alnum} ||= [], $code) if $cat =~ /^[LMN]/; $op->($Cat->{Alpha} ||= [], $code) @@ -149,7 +149,7 @@ sub gencat { if $cat =~ /^Z/ || $code =~ /^(0009|000A|000B|000C|000D)$/; $op->($Cat->{SpacePerl} ||= [], $code) - if $cat =~ /^Z/ || + if $cat =~ /^Z/ || $code =~ /^(?:0085|2028|2029)$/ || $code =~ /^(0009|000A|000C|000D)$/; $op->($Cat->{Blank} ||= [], $code) if $code =~ /^(0020|0009)$/ || |