www: drop --subject from "git send-email" instructions

[public-inbox.git] / t / check-www-inbox.perl

diff --git a/t/check-www-inbox.perl b/t/check-www-inbox.perl
index db292c5064a252b48c316b6e4d3d7d43a023a7b0..033b90d174dc16d4ccca8bc2a1c2ab189b2ca0af 100644 (file)
--- 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 <meta@public-inbox.org>
+# Copyright (C) 2016-2021 all contributors <meta@public-inbox.org>
 # License: AGPL-3.0+ <https://www.gnu.org/licenses/agpl-3.0.txt>
 # 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) $!";
@@ -92,7 +91,7 @@ foreach my $p (1..$nproc) {
        }
 }
 
-my ($fh, $tmp) = tempfile('www-check-XXXXXXXX',
+my ($fh, $tmp) = tempfile('www-check-XXXX',
                        SUFFIX => '.gdbm', UNLINK => 1, TMPDIR => 1);
 my $gdbm = tie my %seen, 'GDBM_File', $tmp, &GDBM_WRCREAT, 0600;
 defined $gdbm or die "gdbm open failed: $!\n";