diff options
| author | Karl Williamson <khw@cpan.org> | 2015-03-18 11:27:34 -0600 |
|---|---|---|
| committer | Karl Williamson <khw@cpan.org> | 2015-03-18 11:34:45 -0600 |
| commit | 06b1cf37c9248cce771a36e766eb62b8a13c30c3 (patch) | |
| tree | 0be660bd806bc3826a8a9552e4bb411537b872c1 /dist/Data-Dumper/t | |
| parent | 531383e69c1fff07d5f3367824e98c0267dd9875 (diff) | |
| download | perl-06b1cf37c9248cce771a36e766eb62b8a13c30c3.tar.gz | |
dist/Data-Dumper/t/dumper.t: White space only
The previous commit removed a surrounding block. outdent
correspondingly
Diffstat (limited to 'dist/Data-Dumper/t')
| -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'; |