diff options
author | Karl Williamson <khw@cpan.org> | 2016-10-28 08:31:09 -0600 |
---|---|---|
committer | Karl Williamson <khw@cpan.org> | 2016-10-29 08:54:43 -0600 |
commit | f9913875f5edd15a92af1ff0a4775ebb3fdf927a (patch) | |
tree | 474dfa6f5b03aae8c6d9c16a05f20ebec85c20a0 /ext | |
parent | f41ee62e9d9e2e6909b863830aaeb4f1e06407e0 (diff) | |
download | perl-f9913875f5edd15a92af1ff0a4775ebb3fdf927a.tar.gz |
XS-APItest/t/utf8.t: Fix wrong test on EBCDIC
The I8 string doesn't work the same as UTF-8, as it only takes 5 bits
from each continuation byte instead of 6.
Diffstat (limited to 'ext')
-rw-r--r-- | ext/XS-APItest/t/utf8.t | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/ext/XS-APItest/t/utf8.t b/ext/XS-APItest/t/utf8.t index 6c6ed67690..5d53859017 100644 --- a/ext/XS-APItest/t/utf8.t +++ b/ext/XS-APItest/t/utf8.t @@ -1051,7 +1051,7 @@ my @malformations = ( (isASCII) ? "\xc1\xbf" : I8_to_native("\xc4\xbf"), 2, $UTF8_ALLOW_LONG, $UTF8_GOT_LONG, - (isASCII) ? 0x7F : utf8::unicode_to_native(0xBF), + (isASCII) ? 0x7F : utf8::unicode_to_native(0x9F), 2, qr/overlong/ ], |