local $/ = "\n";
my $info = <$r>;
defined $info or die "EOF from fast-import / cat-blob: $!";
- $info =~ /\A[a-f0-9]{40} blob ([0-9]+)\n\z/ or return;
+ $info =~ /\A[a-f0-9]{40,} blob ([0-9]+)\n\z/ or return;
my $left = $1;
my $offset = 0;
my $buf = '';
my ($r, $w, $tip, $path, $mime) = @_;
my $info = _check_path($r, $w, $tip, $path) or return ('MISSING',undef);
- $info =~ m!\A100644 blob ([a-f0-9]{40})\t!s or die "not blob: $info";
+ $info =~ m!\A100644 blob ([a-f0-9]{40,})\t!s or die "not blob: $info";
my $oid = $1;
my $msg = _cat_blob($r, $w, $oid) or die "BUG: cat-blob $1 failed";
my $cur = PublicInbox::Eml->new($msg);
}
# kill potentially confusing/misleading headers
+our @UNWANTED_HEADERS = (qw(Bytes Lines Content-Length),
+ qw(Status X-Status));
sub drop_unwanted_headers ($) {
- my ($mime) = @_;
-
- $mime->header_set($_) for qw(Bytes Lines Content-Length Status);
- $mime->header_set($_) for @PublicInbox::MDA::BAD_HEADERS;
+ my ($eml) = @_;
+ for (@UNWANTED_HEADERS, @PublicInbox::MDA::BAD_HEADERS) {
+ $eml->header_set($_);
+ }
}
# used by V2Writable, too