Eradicate race condition in t/op/sigsystem.t (#114562)

diff --git a/t/op/sigsystem.t b/t/op/sigsystem.t
index 197ecb2..ddfebf9 100644 (file)
--- a/t/op/sigsystem.t
+++ b/t/op/sigsystem.t
@@ -17,6 +17,13 @@ SKIP: {
     require POSIX;
     require Time::HiRes;
 
+    my @pids;
+    $SIG{CHLD} = sub {
+       while ((my $child = waitpid(-1, POSIX::WNOHANG())) > 0) {
+           note "Reaped: $child";
+           push @pids, $child;
+       }
+    };
     my $pid = fork // die "Can't fork: $!";
     unless ($pid) {
        note("Child PID: $$");
@@ -26,14 +33,6 @@ SKIP: {
 
     test_system('without reaper');
 
-    my @pids;
-    $SIG{CHLD} = sub {
-       while ((my $child = waitpid(-1, POSIX::WNOHANG())) > 0) {
-           note "Reaped: $child";
-           push @pids, $child;
-       }
-    };
-
     test_system('with reaper');
 
     note("Waiting briefly for SIGCHLD...");