X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~ian/git?p=topbloke.git;a=blobdiff_plain;f=tb-list.pl;h=e31304a37512f10964d3d3dc02a46c86cf66908a;hp=8fc3c3bd8784067feb62c4fb4b604904461c61e7;hb=8b13342a48b077df1c1117087fa4c9c2e99c0984;hpb=1a6262c839e4ed26b66cbbeb68910d89be52ac03

diff --git a/tb-list.pl b/tb-list.pl
index 8fc3c3b..e31304a 100755
--- a/tb-list.pl
+++ b/tb-list.pl
@@ -57,11 +57,15 @@ foreach $sort (@sort) {
 
 our %patches;
 
+use Data::Dumper;
+
 foreach_patch($relatedto || $leaves || !$spec ? { } : $spec, 
 	      $deleted || $deleted_only, 
 	      [qw(B_deps +included)],
 	      sub { 
 		  my ($patch,$parsedname,$meta) = @_;
+
+print Dumper($parsedname);
 		  $patches{$patch}{Meta} = $meta;
 		  $patches{$patch}{ParsedName} = $parsedname;
 		  $patches{$patch}{Deps} =
@@ -187,7 +191,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]";