update some docs for new metadata/theory

[topbloke.git] / tb-list.pl

diff --git a/tb-list.pl b/tb-list.pl
index 8fc3c3bd8784067feb62c4fb4b604904461c61e7..c23f6a00e58d394fd4604065e36d08b7195ed08e 100755 (executable)
--- a/tb-list.pl
+++ b/tb-list.pl
@@ -187,7 +187,10 @@ foreach my $p (@output) {
     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]";