my $v = $patches{$p};
my $pa = $v->{ParsedName};
my ($msgkind, $msg) = git_get_object("$pa->{Ref}:.topbloke/msg");
- die "$p $msgkind ?" unless $msgkind eq 'blob';
+ if ($msgkind ne 'blob') {
+ warn "$p $msgkind ?";
+ next;
+ }
my $subject =
$msg =~ m/^Subject:\s*(?:\[[^][]*\]\s*)?(.*\S)\s*$/mi
? $1 : "[no subject]";