diff options
author | Jarkko Hietaniemi <jhi@iki.fi> | 2001-12-21 00:54:49 +0000 |
---|---|---|
committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-12-21 00:54:49 +0000 |
commit | b851fbc1add6c3d9fa6158884279133c311a3efc (patch) | |
tree | 87e5be7072ad6e52eb1cfd85805e3c7ba034dab6 /t/op/pat.t | |
parent | 70b75758f8fb2cc713010bb8bc05cd986151b9b2 (diff) | |
download | perl-b851fbc1add6c3d9fa6158884279133c311a3efc.tar.gz |
Make using U+FDD0..U+FDEF (noncharacters since Unicode 3.1),
U+...FFFE, U+...FFFF, and characters beyond U+10FFFF
(the Unicode maximum code point) warnable offenses.
p4raw-id: //depot/perl@13823
Diffstat (limited to 't/op/pat.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 6b4b0619bf..077b9579e5 100755 --- a/t/op/pat.t +++ b/t/op/pat.t @@ -1618,9 +1618,9 @@ EOT { # from Robin Houston - my $x = "\x{12345678}"; + my $x = "\x{10FFFD}"; $x =~ s/(.)/$1/g; - print "not " unless ord($x) == 0x12345678 && length($x) == 1; + print "not " unless ord($x) == 0x10FFFD && length($x) == 1; print "ok 587\n"; } |