From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Sat, 20 Oct 2001 00:51:07 +0000 (+0000)
Subject: Test vertical whitespace combined with /x in \p{}.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=b23d7fc6dfda4fd509428852e5292adff219f907;p=p5sagit%2Fp5-mst-13.2.git

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
--- 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";
 }