From 29c557581ba1dc452254246d819270ef70565573 Mon Sep 17 00:00:00 2001
From: Oliver Kurz <okurz@suse.de>
Date: Mon, 13 Dec 2021 14:37:34 +0100
Subject: [PATCH] Apply current perl tidy rules as of 20211213

---
 t/01_run.t                | 14 ++++++++++----
 t/data/sigchld_handler.pl |  6 +++---
 2 files changed, 13 insertions(+), 7 deletions(-)

diff --git a/t/01_run.t b/t/01_run.t
index 36518f6..001f7fd 100644
--- a/t/01_run.t
+++ b/t/01_run.t
@@ -613,17 +613,23 @@ subtest 'execute exeption handling' => sub {
 };
 
 subtest 'SIG_CHLD handler in spawned process' => sub {
-  my $simple_rwp = "$FindBin::Bin/data/simple_rwp.pl";
+  my $simple_rwp      = "$FindBin::Bin/data/simple_rwp.pl";
   my $sigchld_handler = "$FindBin::Bin/data/sigchld_handler.pl";
 
   # use `perl <script>` here, as Github ci action place the used perl executable
   # somewhere like /opt/hostedtoolcache/perl/<version>/<arch>/bin/perl so
   # /usr/bin/perl wouldn't have all needed dependencies
-  is( process(execute => 'perl')->args([$simple_rwp])->start()->wait_stop()->exit_status(), 0, 'simple_rwp.pl exit with 0');
+  is(
+    process(execute => 'perl')->args([$simple_rwp])->start()->wait_stop()
+      ->exit_status(),
+    0,
+    'simple_rwp.pl exit with 0'
+  );
 
   my $p = process(execute => $sigchld_handler);
-  is( $p->start()->wait_stop()->exit_status(), 0, 'sigchld_handler.pl exit with 0');
-  like( $p->read_all_stdout, qr/SIG_CHLD/, "SIG_CHLD handler was executed");
+  is($p->start()->wait_stop()->exit_status(),
+    0, 'sigchld_handler.pl exit with 0');
+  like($p->read_all_stdout, qr/SIG_CHLD/, "SIG_CHLD handler was executed");
 };
 
 done_testing;
diff --git a/t/data/sigchld_handler.pl b/t/data/sigchld_handler.pl
index 03ee59a..a518ae6 100755
--- a/t/data/sigchld_handler.pl
+++ b/t/data/sigchld_handler.pl
@@ -5,8 +5,8 @@
 
 my $collected_pid = -1;
 $SIG{CHLD} = sub {
-    $collected_pid = waitpid(-1, 0);
-    print "SIG_CHLD $collected_pid exit:" . ( $?>>8) . "\n";
+  $collected_pid = waitpid(-1, 0);
+  print "SIG_CHLD $collected_pid exit:" . ($? >> 8) . "\n";
 };
 
 my $pid = fork();
@@ -15,6 +15,6 @@
   exit 0;
 }
 print "Forked child is $pid\n";
-sleep 0.1 while($collected_pid != $pid);
+sleep 0.1 while ($collected_pid != $pid);
 print "Exit graceful\n";
 exit 0;