From: Shlomi Fish <shlomif@shlomifish.org>
Date: Sat, 11 Dec 2021 11:24:04 +0000 (+0200)
Subject: Fix the indentation.
X-Git-Tag: fortune-mod-3.8.0~34
X-Git-Url: https://granicus.if.org/sourcecode?a=commitdiff_plain;h=3c47cbb4d154af6421a8ff95790e16e8a5e07cb4;p=fortune-mod

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 888801a..da4661a 100644
--- 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");
         }
     }
 }