X-Git-Url: http://www.git.stargrave.org/?a=blobdiff_plain;f=t%2Frun.perl;h=96db3045a04f535eeed8413dda419ef4bc3f1547;hb=da86f10a548d4cce25f91bb4063f82ecbbe441a1;hp=b7cb988be3e9b1f123ed484d0fc2ddc0b8e1e128;hpb=99d3f175072a8ef062ba6335a3ceb267ba89c12b;p=public-inbox.git

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) {