Change 14052 by jhi@alpha on 2002/01/04 03:13:50
Add U+0085, U+2028, and U+2029 to \s under Unicode.
Affected files ...
.... //depot/perl/lib/unicore/Is/SpacePerl.pl#3 edit
.... //depot/perl/lib/unicore/mktables#13 edit
.... //depot/perl/t/op/pat.t#145 edit
Differences ...
==== //depot/perl/lib/unicore/Is/SpacePerl.pl#3 (text) ====
Index: perl/lib/unicore/Is/SpacePerl.pl
--- perl/lib/unicore/Is/SpacePerl.pl.~1~ Thu Jan 3 20:30:05 2002
+++ perl/lib/unicore/Is/SpacePerl.pl Thu Jan 3 20:30:05 2002
@@ -5,6 +5,7 @@
0009 000A
000C 000D
0020
+0085
00A0
1680
2000 200B
==== //depot/perl/lib/unicore/mktables#13 (text) ====
Index: perl/lib/unicore/mktables
--- perl/lib/unicore/mktables.~1~ Thu Jan 3 20:30:05 2002
+++ perl/lib/unicore/mktables Thu Jan 3 20:30:05 2002
@@ -134,7 +134,7 @@
||= [], $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 @@
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)$/ ||
==== //depot/perl/t/op/pat.t#145 (xtext) ====
Index: perl/t/op/pat.t
--- perl/t/op/pat.t.~1~ Thu Jan 3 20:30:05 2002
+++ perl/t/op/pat.t Thu Jan 3 20:30:05 2002
@@ -6,7 +6,7 @@
$| = 1;
-print "1..840\n";
+print "1..843\n";
BEGIN {
chdir 't' if -d 't';
@@ -2609,3 +2609,13 @@
# print "SS" =~
# /[\N{LATIN SMALL LETTER SHARP S}]/i ? "ok 842\n" : "not ok 842\n";
}
+
+{
+ print "# more whitespace: U+0085, U+2028, U+2029\n";
+
+ # U+0085 needs to be forced to be Unicode, the \x{100} does that.
+ print "<\x{100}\x{0085}>" =~ /<\x{100}\s>/ ? "ok 841\n" : "not ok 841\n";
+ print "<\x{2028}>" =~ /<\s>/ ? "ok 842\n" : "not ok 842\n";
+ print "<\x{2029}>" =~ /<\s>/ ? "ok 843\n" : "not ok 843\n";
+}
+
End of Patch.
