spawn (and thus popen_rd) die on failure

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

diff --git a/t/check-www-inbox.perl b/t/check-www-inbox.perl
index 0a6d61bb5997a2fafbb19ef2dfd56386d3f103c3..402099570aca8ed807e2a9c5f3f5537dbd1806f3 100644 (file)
--- a/t/check-www-inbox.perl
+++ b/t/check-www-inbox.perl
@@ -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) $!";
@@ -151,6 +150,7 @@ sub worker_loop {
        $SIG{CHLD} = 'DEFAULT';
        my $m = WWW::Mechanize->new(autocheck => 0);
        my $cc = LWP::ConnCache->new;
+       $m->stack_depth(0); # no history
        $m->conn_cache($cc);
        while (1) {
                $todo_rd->recv(my $u, 65535, 0);