lei_to_mail: start --augment, dedupe, bz2 and xz

[public-inbox.git] / lib / PublicInbox / MboxReader.pm

diff --git a/lib/PublicInbox/MboxReader.pm b/lib/PublicInbox/MboxReader.pm
index e1944aafe8e2187c1acc752fbf7b67a3f4a407b1..ac0c0f52deccc9b1a4aaf8f0dd73fee5ba889050 100644 (file)
--- a/lib/PublicInbox/MboxReader.pm
+++ b/lib/PublicInbox/MboxReader.pm
@@ -5,6 +5,7 @@
 package PublicInbox::MboxReader;
 use strict;
 use v5.10.1;
+use PublicInbox::DS (); # localize $in_loop for error detection :<
 use Data::Dumper;
 $Data::Dumper::Useqq = 1; # should've been the default, for bad data
 
@@ -13,6 +14,7 @@ my $from_strict =
 
 sub _mbox_from {
        my ($mbfh, $from_re, $eml_cb, @arg) = @_;
+       local $PublicInbox::DS::in_loop; # disable dwaitpid
        my $buf = '';
        my @raw;
        while (defined(my $r = read($mbfh, $buf, 65536, length($buf)))) {
@@ -73,6 +75,7 @@ sub _extract_hdr {
 
 sub _mbox_cl ($$$;@) {
        my ($mbfh, $uxs_from, $eml_cb, @arg) = @_;
+       local $PublicInbox::DS::in_loop; # disable dwaitpid
        my $buf = '';
        while (defined(my $r = read($mbfh, $buf, 65536, length($buf)))) {
                if ($r == 0) { # detect "curl --fail"