One more warning

git-svn-id: svn://svn.debian.org/pgp-tools/trunk@21 b513b33f-fedd-0310-b452-c3deb5f4c849

diff --git a/caff/caff b/caff/caff
index 718e847eb876656da0431dc349be2b741b803b8e..4c5e6411c2b3da9e33f5f287cd0dc138a4dbe40f 100755 (executable)
--- a/caff/caff
+++ b/caff/caff
@@ -684,6 +684,7 @@ 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.");