1 files changed, 1 insertions, 1 deletions
diff --git a/t/run.perl b/t/run.perl
index b7cb988b..96db3045 100755
--- a/t/run.perl
+++ b/t/run.perl
@@ -128,7 +128,7 @@ my $eof; # we stop respawning if true
  
  my $start_worker = sub {
          my ($i, $j, $rd, $todo) = @_;
-        defined(my $pid = fork) or DIE "fork: $!";
+        my $pid = fork // DIE "fork: $!";
          if ($pid == 0) {
                  $worker = $$;
                  while (1) {