From 3c47cbb4d154af6421a8ff95790e16e8a5e07cb4 Mon Sep 17 00:00:00 2001
From: Shlomi Fish <shlomif@shlomifish.org>
Date: Sat, 11 Dec 2021 13:24:04 +0200
Subject: [PATCH] Fix the indentation.

See http://perl-begin.org/tutorials/bad-elements/#no-indentation .
---
 fortune-mod/tests/scripts/split-valgrind.pl | 11 +++--------
 1 file changed, 3 insertions(+), 8 deletions(-)

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");
         }
     }
 }
-- 
2.40.0