diff options
| author | Nick Ing-Simmons <nik@tiuk.ti.com> | 2002-01-16 07:25:29 +0000 |
|---|---|---|
| committer | Nick Ing-Simmons <nik@tiuk.ti.com> | 2002-01-16 07:25:29 +0000 |
| commit | 9e474248160065db8a690e2bf97ac5bf2659fb0b (patch) | |
| tree | ac52eee05dcfe56f40719d0f01f09f145d15f684 /t | |
| parent | 5a8e194fce7241d2bd0867584a5f8b0c0e672556 (diff) | |
| parent | 5beb625efdc42b7e3d999a21d111e88bdda8c811 (diff) | |
| download | perl-9e474248160065db8a690e2bf97ac5bf2659fb0b.tar.gz | |
Integrate mainline
p4raw-id: //depot/perlio@14295
Diffstat (limited to 't')
| -rwxr-xr-x | t/op/pat.t | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/t/op/pat.t b/t/op/pat.t index f1448a5b96..9af93597f4 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"; } |