diff options
| author | Abigail <abigail@abigail.be> | 2017-06-06 18:51:37 +0200 |
|---|---|---|
| committer | Abigail <abigail@abigail.be> | 2017-06-06 18:56:51 +0200 |
| commit | 13f4dd346e6f3b61534a20f246de3a80b3feb743 (patch) | |
| tree | c6b275523eba7ecdb0571fdb0880c20f3f3d4179 /t/op/chop.t | |
| parent | 117c08bff362aadf9f1826edcf50f7b0bebeba10 (diff) | |
| download | perl-13f4dd346e6f3b61534a20f246de3a80b3feb743.tar.gz | |
Forbid out of range Unicode code points.
Unicode allows code points up to 0x10FFFF, but Perl allows much more.
However, code points above IV_MAX may not always work correctly, and
may even cause the interpreter to hang. Code points exceeding IV_MAX
have been deprecated since 5.24, and will be illegal in 5.28.
This commit removes many tests (without replacing them) as they were
testing behaviour of code points exceeding IV_MAX.
Diffstat (limited to 't/op/chop.t')
| -rw-r--r-- | t/op/chop.t | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/t/op/chop.t b/t/op/chop.t index 743f21ad77..f12332ae7c 100644 --- a/t/op/chop.t +++ b/t/op/chop.t @@ -264,10 +264,10 @@ foreach my $start (@chars) { use Config; $Config{ivsize} >= 8 or skip("this build can't handle very large characters", 2); - my $utf = "\x{ffffffffffffffff}\x{fffffffffffffffe}"; + my $utf = "\x{7fffffffffffffff}\x{7ffffffffffffffe}"; my $result = chop $utf; - is($utf, "\x{ffffffffffffffff}", "chop even higher 'unicode' - remnant"); - is($result, "\x{fffffffffffffffe}", "chop even higher 'unicode' - result"); + is($utf, "\x{7fffffffffffffff}", "chop even higher 'unicode' - remnant"); + is($result, "\x{7ffffffffffffffe}", "chop even higher 'unicode' - result"); } } |