From 904bc114c6e0f18433dd33849b2b8a790a460583 Mon Sep 17 00:00:00 2001 From: Jarkko Hietaniemi Date: Tue, 15 Jan 2002 13:53:01 +0000 Subject: [PATCH] Make the test harder. p4raw-id: //depot/perl@14273 --- t/op/pat.t | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/t/op/pat.t b/t/op/pat.t index f1448a5..9af9359 100755 --- a/t/op/pat.t +++ b/t/op/pat.t @@ -2232,10 +2232,10 @@ print "# some Unicode properties\n"; } { - print "not " unless "a" =~ /\p{Lowercase}/; + print "not " unless "a" =~ /\p{Lowercase Letter}/; print "ok 745\n"; - print "not " if "A" =~ /\p{Lowercase}/; + print "not " if "A" =~ /\p{lowercaseletter}/; print "ok 746\n"; } -- 2.7.4