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/each.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/each.t')
| -rwxr-xr-x | t/op/each.t | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/t/op/each.t b/t/op/each.t index 556479ef70..8212264d55 100755 --- a/t/op/each.t +++ b/t/op/each.t @@ -135,7 +135,7 @@ ok ($i == 5); # Check for Unicode hash keys. %u = ("\x{12}", "f", "\x{123}", "fo", "\x{1234}", "foo"); $u{"\x{12345}"} = "bar"; -@u{"\x{123456}"} = "zap"; +@u{"\x{10FFFD}"} = "zap"; my %u2; foreach (keys %u) { |