One more warning

[pgp-tools.git] / caff / caff

diff --git a/caff/caff b/caff/caff
index 6b23803ece8e024a0141f62793aed9e4ea2eac14..4c5e6411c2b3da9e33f5f287cd0dc138a4dbe40f 100755 (executable)
--- a/caff/caff
+++ b/caff/caff
@@ -684,16 +684,21 @@ for my $keyid (@keyids_ok) {
                while($status =~ /$KEYEDIT_DELSIG_PROMPT/m) {
                        # sig:?::17:EA2199412477CAF8:1058095214:::::13x:
                        my @sigline = grep { /^sig/ } (split /\n/, $stdout);
+                       notice("[sigremoval] why are there ".(scalar @sigline)." siglines in that part of the dialog!?.") if scalar @sigline >= 2; # XXX
                        my $line = pop @sigline;
                        my $answer = "no";
+                       debug("[sigremoval] doing line $line.");
                        if (defined $line) { # only if we found a sig here - we never remove revocation packets for instance
                                my ($dummy1, $dummy2, $dummy3, $dummy4, $signer, $created, $dummy7, $dummy8, $dummy9) = split /:/, $line;
                                if ($signer eq $longkeyid) {
+                                       debug("[sigremoval] selfsig ($signer).");
                                        $answer = "no";
                                } elsif (grep { $signer eq $_ } @{$CONFIG{'keyid'}}) {
+                                       debug("[sigremoval] signed by us ($signer).");
                                        $answer = "no";
                                        $signed_by_me = $signed_by_me > $created ? $signed_by_me : $created;
                                } else {
+                                       debug("[sigremoval] not interested in that sig ($signer).");
                                        $answer = "yes";
                                };
                        };