From 06b1cf37c9248cce771a36e766eb62b8a13c30c3 Mon Sep 17 00:00:00 2001
From: Karl Williamson <khw@cpan.org>
Date: Wed, 18 Mar 2015 11:27:34 -0600
Subject: dist/Data-Dumper/t/dumper.t: White space only

The previous commit removed a surrounding block.  outdent
correspondingly
---
 dist/Data-Dumper/t/dumper.t | 16 ++++++++--------
 1 file changed, 8 insertions(+), 8 deletions(-)

(limited to 'dist/Data-Dumper/t')

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';
-- 
cgit v1.2.1