]> Sergey Matveev's repositories - public-inbox.git/blobdiff - scripts/import_slrnspool
favor `do {}' over `eval {}' for localized slurp
[public-inbox.git] / scripts / import_slrnspool
index e569d0044ad993d4866b149c07907640ade8afeb..480e7b4fa5ade57aa42d36de01e9861a964e75cd 100755 (executable)
@@ -70,7 +70,7 @@ for (; $exit == 0 && $n < $max; $n++) {
        $max = $n + $max_gap;
        print STDERR $fn, "\n";
 
-       my $mime = PublicInbox::MIME->new(eval { local $/; <$fh> });
+       my $mime = PublicInbox::MIME->new(do { local $/; <$fh> });
        $filter->scrub($mime);
        $im->add($mime);