X-Git-Url: http://www.git.stargrave.org/?p=public-inbox.git;a=blobdiff_plain;f=scripts%2Fimport_slrnspool;h=1a7d77a4d767d5d69f5e9a1b341dffa2841e7e56;hp=ab79e7982da8c1cbfc45d8f59e02125b10160e8b;hb=8d562ac834d69e18030cb2969a827b121aa4324a;hpb=b23d50b9c2772ec655aa7d60871062415502c8e5 diff --git a/scripts/import_slrnspool b/scripts/import_slrnspool index ab79e798..1a7d77a4 100755 --- a/scripts/import_slrnspool +++ b/scripts/import_slrnspool @@ -59,12 +59,13 @@ my $n = get_min(); my $ok; my $max_gap = 200000; my $max = $n + $max_gap; +$spool =~ s!/+\z!!; for (; $exit == 0 && $n < $max; $n++) { my $fn = "$spool/$n"; - print STDERR $fn, "\n"; open(my $fh, '<', $fn) or next; $max = $n + $max_gap; + print STDERR $fn, "\n"; my $mime = PublicInbox::MIME->new(eval { local $/; <$fh> }); my $hdr = $mime->header_obj;