Change 12519 by jhi@alpha on 2001/10/20 00:51:07
Test vertical whitespace combined with /x in \p{}.
Affected files ...
... //depot/perl/t/op/pat.t#129 edit
Differences ...
==== //depot/perl/t/op/pat.t#129 (xtext) ====
Index: perl/t/op/pat.t
--- perl/t/op/pat.t.~1~ Fri Oct 19 19:00:12 2001
+++ perl/t/op/pat.t Fri Oct 19 19:00:12 2001
@@ -2235,7 +2235,10 @@
print "not " unless "a" =~ /\p{LowercaseLetter}/;
print "ok 745\n";
- print "not " if "A" =~ /\p{LowercaseLetter}/;
+ print "not " if "A" =~ /\p{
+ Lowercase
+ Letter
+ }/x;
print "ok 746\n";
}
End of Patch.
