v2writable: move git->cleanup to the correct place

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

diff --git a/t/check-www-inbox.perl b/t/check-www-inbox.perl
index 933362a75ab4e07a9316a94ffa0a0437ff6244c8..db292c5064a252b48c316b6e4d3d7d43a023a7b0 100644 (file)
--- a/t/check-www-inbox.perl
+++ b/t/check-www-inbox.perl
@@ -151,6 +151,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);
@@ -175,7 +176,7 @@ sub worker_loop {
                my $s;
                # blocking
                foreach my $l (@links, "DONE\t$u") {
-                       next if $l eq '';
+                       next if $l eq '' || $l =~ /\.mbox(?:\.gz)\z/;
                        do {
                                $s = $done_wr->send($l, MSG_EOR);
                        } while (!defined $s && $!{EINTR});