diff options
author | Jarkko Hietaniemi <jhi@iki.fi> | 2001-10-02 14:34:59 +0000 |
---|---|---|
committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-10-02 14:34:59 +0000 |
commit | f173cd4968fd461b0b3add4db940bc4374069991 (patch) | |
tree | ec7749fa5f0bb012bbeecf9efb14fe4deca5913a /t/op/pat.t | |
parent | d0020ae77762c28a8c530e330b39843d11cc0b62 (diff) | |
download | perl-f173cd4968fd461b0b3add4db940bc4374069991.tar.gz |
Unicode properties: allow also intra(wordbreak)name whitespace,
not just one single space.
p4raw-id: //depot/perl@12309
Diffstat (limited to 't/op/pat.t')
-rwxr-xr-x | t/op/pat.t | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/t/op/pat.t b/t/op/pat.t index e65db55371..63798660c7 100755 --- a/t/op/pat.t +++ b/t/op/pat.t @@ -2138,8 +2138,9 @@ print "# some Unicode properties\n"; print "not " unless "\x80" =~ /\P{ ^ In Latin 1 Supplement }/; print "ok 717\n"; - # No ^In, dashes, case. - print "not " unless "\x80" =~ /\p{latin-1-supplement}/; + # No ^In, dashes, case, dash, any intervening (word-break) whitespace. + # (well, newlines don't work...) + print "not " unless "\x80" =~ /\p{latin-1 supplement}/; print "ok 718\n"; } |