X-Git-Url: http://www.git.stargrave.org/?a=blobdiff_plain;f=xt%2Fcreate-many-inboxes.t;h=f44334cce6dd9e383c5168ea24980725d7a85f81;hb=da86f10a548d4cce25f91bb4063f82ecbbe441a1;hp=0c2de40d47c1a1ae894d32a909f110e3e3546ff2;hpb=99d3f175072a8ef062ba6335a3ceb267ba89c12b;p=public-inbox.git

diff --git a/xt/create-many-inboxes.t b/xt/create-many-inboxes.t
index 0c2de40d..f44334cc 100644
--- a/xt/create-many-inboxes.t
+++ b/xt/create-many-inboxes.t
@@ -68,7 +68,7 @@ my @children;
 for my $i (1..$nproc) {
 	my ($r, $w);
 	pipe($r, $w) or BAIL_OUT $!;
-	my $pid = fork;
+	my $pid = fork // BAIL_OUT "fork: $!";
 	if ($pid == 0) {
 		close $w;
 		while (my $i = <$r>) {
@@ -77,7 +77,6 @@ for my $i (1..$nproc) {
 		}
 		_exit(0);
 	}
-	defined $pid or BAIL_OUT "fork: $!";
 	close $r or BAIL_OUT $!;
 	push @children, [ $w, $pid ];
 	$w->autoflush(1);