diff options
| -rw-r--r-- | dist/Data-Dumper/t/dumper.t | 16 |
1 files changed, 8 insertions, 8 deletions
diff --git a/dist/Data-Dumper/t/dumper.t b/dist/Data-Dumper/t/dumper.t index 78ff7ece1a..643160a1c3 100644 --- a/dist/Data-Dumper/t/dumper.t +++ b/dist/Data-Dumper/t/dumper.t @@ -1419,19 +1419,19 @@ EOT # 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 + $WANT = <<"EOT"; # Careful. This is '' string written inside "" here doc #\$VAR1 = '\$b\"\@\\\\\xB6'; EOT - $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 + $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'; |