lib/PublicInbox/Import.pm | 2 +- diff --git a/lib/PublicInbox/Import.pm b/lib/PublicInbox/Import.pm index 8406c9e268866fc23f9c4758f511994a964cfeea..e20c6e031f6fb14a64373637a631f8e1ff9edc93 100644 --- a/lib/PublicInbox/Import.pm +++ b/lib/PublicInbox/Import.pm @@ -122,7 +122,7 @@ } $n = read($r, my $lf, 1); defined($n) or die "read final byte of cat-blob failed: $!"; die "bad read on final byte: <$lf>" if $lf ne "\n"; - my $cur = PublicInbox::MIME->new($buf); + my $cur = PublicInbox::MIME->new(\$buf); my $cur_s = $cur->header('Subject'); $cur_s = '' unless defined $cur_s; my $cur_m = $mime->header('Subject');