diff options
| author | David Mitchell <davem@iabyn.com> | 2017-06-12 11:42:22 +0100 |
|---|---|---|
| committer | David Mitchell <davem@iabyn.com> | 2017-06-12 21:11:02 +0100 |
| commit | 51099b64db323d0e1d871837f619d72bea8ca2f9 (patch) | |
| tree | 2d11b630c5f7636ab023d8f439c0b849527b13e2 /t/opbasic | |
| parent | 2c8efe4079b75c61cf34425054539a9c24913e9f (diff) | |
| download | perl-51099b64db323d0e1d871837f619d72bea8ca2f9.tar.gz | |
fix utf char > IV_MAX on 32-bit platforms
Commit v5.27.0-132-g13f4dd3 forbade out of range Unicode code points,
and fixed/removed tests that no longer apply.
However, this was probably only tested on a 64-bit platform. Several
tests now fail on 32-bit platforms, due to things like "\x{80000000}".
This commit fixes up those tests too.
Diffstat (limited to 't/opbasic')
| -rw-r--r-- | t/opbasic/qq.t | 7 |
1 files changed, 1 insertions, 6 deletions
diff --git a/t/opbasic/qq.t b/t/opbasic/qq.t index 5d6908cef1..e633783df2 100644 --- a/t/opbasic/qq.t +++ b/t/opbasic/qq.t @@ -8,7 +8,7 @@ BEGIN { # This file uses a specially crafted is() function rather than that found in # t/test.pl or Test::More. Hence, we place this file in directory t/opbasic. -print q(1..29 +print q(1..28 ); # This is() function is written to avoid "" @@ -71,11 +71,6 @@ is ("a\o{120}b", "a" . chr(0x50) . "b"); is ("a\o{400}b", "a" . chr(0x100) . "b"); is ("a\o{1000}b", "a" . chr(0x200) . "b"); -# This caused a memory fault -no warnings "utf8"; -no warnings 'deprecated'; # This is above IV_MAX on 32 bit machines -is ("abc", eval qq[qq\x{8000_0000}abc\x{8000_0000}]); - # Maybe \x{} should be an error, but if not it should certainly mean \x{0} # rather than anything else. is ("\x{}", chr(0)); |