Fix the indentation.

See http://perl-begin.org/tutorials/bad-elements/#no-indentation .

diff --git a/fortune-mod/tests/scripts/split-valgrind.pl b/fortune-mod/tests/scripts/split-valgrind.pl
index 888801a10475412f317bdec1adb83b8156640a20..da4661ad793dc689636af36396aa0896833f66a6 100644 (file)
--- a/fortune-mod/tests/scripts/split-valgrind.pl
+++ b/fortune-mod/tests/scripts/split-valgrind.pl
@@ -12,7 +12,7 @@ use warnings;
 use 5.014;
 use autodie;
 
-use Path::Tiny qw/ path tempdir tempfile cwd /;
+use Path::Tiny qw/ path /;
 
 use FindBin;
 my $code = path("$FindBin::Bin/../data/valgrind.t")->slurp_utf8();
@@ -51,11 +51,7 @@ while ( $code =~ m#\G.*?^(foreach|\$obj->run)#gms )
         my ( $list, $params ) = ( $1, $2 );
         foreach my $prog ( $list =~ /(\S+)/g )
         {
-            out(
-                "        foreach my \$prog (qw/ $prog /) {
-
-    \$obj->run($params);}\n"
-            );
+            out("\nforeach my \$prog (qw/ $prog /) { \$obj->run($params); }\n");
         }
     }
     else
@@ -65,8 +61,7 @@ while ( $code =~ m#\G.*?^(foreach|\$obj->run)#gms )
         my ($params) = ($1);
         foreach my $prog (1)
         {
-            out( "
-    \$obj->run($params);\n" );
+            out("\n\$obj->run($params);\n");
         }
     }
 }