chiark / gitweb /
list works again
[topbloke.git] / tb-list.pl
index 8fc3c3b..e31304a 100755 (executable)
@@ -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]";