diff options
| author | Karl Williamson <khw@cpan.org> | 2016-10-28 08:42:38 -0600 |
|---|---|---|
| committer | Karl Williamson <khw@cpan.org> | 2016-10-29 08:54:44 -0600 |
| commit | 1069c57cb1f4e6b94f8695843243749e9511303e (patch) | |
| tree | 823f8eb43595210405b0ac6afed15210b0e400bb /ext | |
| parent | 78a3c0f885993b7560c809640e932af91ba25136 (diff) | |
| download | perl-1069c57cb1f4e6b94f8695843243749e9511303e.tar.gz | |
XS-APItest/t/utf8.t: Fix EBCDIC bug
This number needs to be adjusted for EBCDIC platforms
Diffstat (limited to 'ext')
| -rw-r--r-- | ext/XS-APItest/t/utf8.t | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/ext/XS-APItest/t/utf8.t b/ext/XS-APItest/t/utf8.t index 8a309beed4..677c9e0a70 100644 --- a/ext/XS-APItest/t/utf8.t +++ b/ext/XS-APItest/t/utf8.t @@ -2029,7 +2029,8 @@ foreach my $test (@tests) { # overlong sequence. This should evaluate # to the exact same code point as the # original. - $this_bytes = "\xfe" + $this_bytes + = I8_to_native("\xfe") . (I8_to_native(chr $first_continuation) x ( 6 - length($this_bytes))) . $this_bytes; |