In perl.git, the branch blead has been updated <http://perl5.git.perl.org/perl.git/commitdiff/06b1cf37c9248cce771a36e766eb62b8a13c30c3?hp=d71230e7060d58db20a9853f2cbd19f150b65542>
- Log ----------------------------------------------------------------- commit 06b1cf37c9248cce771a36e766eb62b8a13c30c3 Author: Karl Williamson <[email protected]> Date: Wed Mar 18 11:27:34 2015 -0600 dist/Data-Dumper/t/dumper.t: White space only The previous commit removed a surrounding block. outdent correspondingly M dist/Data-Dumper/t/dumper.t commit 531383e69c1fff07d5f3367824e98c0267dd9875 Author: Karl Williamson <[email protected]> Date: Thu Mar 12 23:03:17 2015 -0600 dist/Data-Dumper/t/dumper.t: Simplify EBCDIC This collapses two pieces of code into one. It isn't necessary to have an ASCII version vs an EBCDIC version. M dist/Data-Dumper/t/dumper.t ----------------------------------------------------------------------- Summary of changes: dist/Data-Dumper/t/dumper.t | 41 +++++++++++++---------------------------- 1 file changed, 13 insertions(+), 28 deletions(-) diff --git a/dist/Data-Dumper/t/dumper.t b/dist/Data-Dumper/t/dumper.t index 14f92dd..643160a 100644 --- a/dist/Data-Dumper/t/dumper.t +++ b/dist/Data-Dumper/t/dumper.t @@ -1413,40 +1413,25 @@ EOT } } -#XXX} { - if ($Is_ebcdic) { - $b = "Bad. XS didn't escape dollar sign"; -############# 322 - $WANT = <<"EOT"; # Careful. This is '' string written inside "" here doc -#\$VAR1 = '\$b\"\@\\\\\xB1'; -EOT - $a = "\$b\"\@\\\xB1\x{100}"; - chop $a; - TEST q(Data::Dumper->Dump([$a])), "utf8 flag with \" and \$"; - if ($XS) { - $WANT = <<'EOT'; # While this is "" string written inside "" here doc -#$VAR1 = "\$b\"\@\\\x{b1}"; -EOT - TEST q(Data::Dumper->Dumpxs([$a])), "XS utf8 flag with \" and \$"; - } - } else { $b = "Bad. XS didn't escape dollar sign"; ############# - $WANT = <<"EOT"; # Careful. This is '' string written inside "" here doc -#\$VAR1 = '\$b\"\@\\\\\xA3'; + # B6 is chosen because it is UTF-8 variant on ASCII and all 3 EBCDIC + # platforms that Perl currently purports to work on. It also is the only + # such code point that has the same meaning on all 4, the paragraph sign. + $WANT = <<"EOT"; # Careful. This is '' string written inside "" here doc +#\$VAR1 = '\$b\"\@\\\\\xB6'; EOT - $a = "\$b\"\@\\\xA3\x{100}"; - chop $a; - TEST q(Data::Dumper->Dump([$a])), "utf8 flag with \" and \$"; - if ($XS) { - $WANT = <<'EOT'; # While this is "" string written inside "" here doc -#$VAR1 = "\$b\"\@\\\x{a3}"; + $a = "\$b\"\@\\\xB6\x{100}"; + chop $a; + TEST q(Data::Dumper->Dump([$a])), "utf8 flag with \" and \$"; + if ($XS) { + $WANT = <<'EOT'; # While this is "" string written inside "" here doc +#$VAR1 = "\$b\"\@\\\x{b6}"; EOT - TEST q(Data::Dumper->Dumpxs([$a])), "XS utf8 flag with \" and \$"; - } - } + TEST q(Data::Dumper->Dumpxs([$a])), "XS utf8 flag with \" and \$"; + } # XS used to produce "$b\"' which is 4 chars, not 3. [ie wrongly qq(\$b\\\")] ############# $WANT = <<'EOT'; -- Perl5 Master Repository
