$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 = Email::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');
binmode $w, ':utf8' or die "binmode :utf8 failed: $!";
print $w "commit $ref\nmark :$commit\n",
"author $name <$email> $date\n",
- "committer $self->{ident} ", now2822(), "\n",
- "data ", (bytes::length($subject) + 1), "\n",
- $subject, "\n\n" or wfail;
+ "committer $self->{ident} ", now2822(), "\n" or wfail;
binmode $w, ':raw' or die "binmode :raw failed: $!";
-
+ print $w "data ", (bytes::length($subject) + 1), "\n",
+ $subject, "\n\n" or wfail;
if ($tip ne '') {
print $w 'from ', ($parent ? $parent : $tip), "\n" or wfail;
}