fix $want handling

[topbloke.git] / tb-list.pl

diff --git a/tb-list.pl b/tb-list.pl
index 620f7599650aec3b2baff315263728ab8ea12f87..e88b17d93d9c0c691ae472770251f498176bf85c 100755 (executable)
--- a/tb-list.pl
+++ b/tb-list.pl
@@ -63,10 +63,13 @@ foreach_patch($relatedto || $leaves || !$spec ? { } : $spec,
 #----- selection -----
 
 if ($leaves) {
+    debug("leaves");
     foreach my $p (keys %patches) {
+       debug("leaves $p");
        my $v = $patches{$p};
        next if $v->{Info}[0]{Deleted};
        foreach my $dep (keys %{ $v->{Info}[1] }) {
+           debug("leaves $p $dep");
            next unless exists $patches{$dep};
            $patches{$dep}{NotLeaf} = 1;
        }