]> Sergey Matveev's repositories - public-inbox.git/blobdiff - t/run.perl
use defined-or in a few more places
[public-inbox.git] / t / run.perl
index b7cb988be3e9b1f123ed484d0fc2ddc0b8e1e128..96db3045a04f535eeed8413dda419ef4bc3f1547 100755 (executable)
@@ -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) {