Test vertical whitespace combined with /x in \p{}.

p4raw-id: //depot/perl@12519

diff --git a/t/op/pat.t b/t/op/pat.t
index 6617921..9937e36 100755 (executable)
--- a/t/op/pat.t
+++ b/t/op/pat.t
@@ -2235,7 +2235,10 @@ print "# some Unicode properties\n";
     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";
 }