scripts/import_slrnspool | 3 ++- diff --git a/scripts/import_slrnspool b/scripts/import_slrnspool index ab79e7982da8c1cbfc45d8f59e02125b10160e8b..1a7d77a4d767d5d69f5e9a1b341dffa2841e7e56 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;