From: weasel <weasel@b513b33f-fedd-0310-b452-c3deb5f4c849>
Date: Wed, 20 Oct 2004 11:09:39 +0000 (+0000)
Subject: One more warning
X-Git-Url: http://git.sthu.org/?a=commitdiff_plain;ds=sidebyside;h=cacd2089a16078286682921afa18ea8c76fd1b5c;p=pgp-tools.git

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 718e847..4c5e641 100755
--- 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.");