X-Git-Url: http://www.git.stargrave.org/?a=blobdiff_plain;f=lib%2FPublicInbox%2FImport.pm;h=65da4ddf466ad4a7309655e6436a4abb58abf742;hb=6dd8be30a9aeefa550b05a4f298934fd37a25c2c;hp=13671a4fa3313f79e3c4d53813ab1cb815ecb032;hpb=3fc59df0d633a17e0c5e43d633d12e8772c06ec3;p=public-inbox.git diff --git a/lib/PublicInbox/Import.pm b/lib/PublicInbox/Import.pm index 13671a4f..65da4ddf 100644 --- a/lib/PublicInbox/Import.pm +++ b/lib/PublicInbox/Import.pm @@ -191,11 +191,10 @@ sub add { 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; }