list works again

[topbloke.git] / tb-list.pl

diff --git a/tb-list.pl b/tb-list.pl
index 8fc3c3bd8784067feb62c4fb4b604904461c61e7..e31304a37512f10964d3d3dc02a46c86cf66908a 100755 (executable)
--- a/tb-list.pl
+++ b/tb-list.pl
@@ -57,11 +57,15 @@ foreach $sort (@sort) {
 
 our %patches;
 
 
 our %patches;
 

+use Data::Dumper;
+

 foreach_patch($relatedto || $leaves || !$spec ? { } : $spec, 
              $deleted || $deleted_only, 
              [qw(B_deps +included)],
              sub { 
                  my ($patch,$parsedname,$meta) = @_;
 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} =
                  $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");
     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]";  
     my $subject =
        $msg =~ m/^Subject:\s*(?:\[[^][]*\]\s*)?(.*\S)\s*$/mi
        ? $1 : "[no subject]";