X-Git-Url: http://www.git.stargrave.org/?a=blobdiff_plain;f=t%2Fcheck-www-inbox.perl;h=dc463ea82e1c1ab8d757c0676d147bbf487ce35c;hb=e61ade9e03e754b5bde70518223b1e9d92ab57e4;hp=db292c5064a252b48c316b6e4d3d7d43a023a7b0;hpb=a6f2d5b61e37a49d8278b250d172b497a88c2b45;p=public-inbox.git diff --git a/t/check-www-inbox.perl b/t/check-www-inbox.perl index db292c50..dc463ea8 100644 --- a/t/check-www-inbox.perl +++ b/t/check-www-inbox.perl @@ -1,5 +1,5 @@ #!/usr/bin/perl -w -# Copyright (C) 2016-2019 all contributors +# Copyright (C) 2016-2020 all contributors # License: AGPL-3.0+ # Parallel WWW checker my $usage = "$0 [-j JOBS] [-s SLOW_THRESHOLD] URL_OF_INBOX\n"; @@ -48,7 +48,6 @@ my $atom_check = eval { 2 => fileno($err_fh), }; my $pid = spawn($cmd, undef, $rdr); - defined $pid or die "spawn failure: $!"; while (waitpid($pid, 0) != $pid) { next if $!{EINTR}; warn "waitpid(xmlstarlet, $pid) $!";