[Pgp-tools-commit] r21 - trunk/caff

[Peter Palfrader]

Author: weasel
Date: 2004-10-20 05:09:39 -0600 (Wed, 20 Oct 2004)
New Revision: 21

Modified:
   trunk/caff/caff
Log:
One more warning

Modified: trunk/caff/caff
===================================================================
--- trunk/caff/caff	2004-10-20 11:04:57 UTC (rev 20)
+++ trunk/caff/caff	2004-10-20 11:09:39 UTC (rev 21)
@@ -684,6 +684,7 @@
 		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.");