In perl.git, the branch blead has been updated <http://perl5.git.perl.org/perl.git/commitdiff/162256f303e3b2f3936976e692650c18c9cad0a6?hp=70febf4f73d876d70fee0ce4d0da225a627c692b>
- Log ----------------------------------------------------------------- commit 162256f303e3b2f3936976e692650c18c9cad0a6 Author: Karl Williamson <[email protected]> Date: Fri Oct 21 13:27:55 2016 -0600 APItest/t/utf8.t: Fix a test on EBCDIC I forgot to translate this to EBCDIC, so created massive failures there, obscuring the real bugs. ----------------------------------------------------------------------- Summary of changes: ext/XS-APItest/t/utf8.t | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/ext/XS-APItest/t/utf8.t b/ext/XS-APItest/t/utf8.t index 0f2d9ee..6c6ed67 100644 --- a/ext/XS-APItest/t/utf8.t +++ b/ext/XS-APItest/t/utf8.t @@ -2027,9 +2027,9 @@ foreach my $test (@tests) { # to the exact same code point as the # original. $this_bytes = "\xfe" - . ("\x80" - x ( 6 - length($this_bytes))) - . $this_bytes; + . (I8_to_native(chr $first_continuation) + x ( 6 - length($this_bytes))) + . $this_bytes; $this_length = length($this_bytes); $this_expected_len = 7; push @expected_errors, $UTF8_GOT_LONG; -- Perl5 Master Repository
