diff options
Diffstat (limited to 'lib/unicore/mktables')
| -rw-r--r-- | lib/unicore/mktables | 4 |
1 files changed, 2 insertions, 2 deletions
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)$/ || |