X-Git-Url: http://git.sthu.org/?a=blobdiff_plain;f=caff%2Fcaff;h=73aacd55e37ea27e2297f4ad89cf5ca2a711605d;hb=867fc0dc05487e335fc76970534447e0d417ec2f;hp=718e847eb876656da0431dc349be2b741b803b8e;hpb=245c68e937d090a496fe5f34381fcacc33dfd76b;p=pgp-tools.git

diff --git a/caff/caff b/caff/caff
index 718e847..73aacd5 100755
--- a/caff/caff
+++ b/caff/caff
@@ -684,10 +684,12 @@ for my $keyid (@keyids_ok) {
 		while($status =~ /$KEYEDIT_DELSIG_PROMPT/m) {
 			# sig:?::17:EA2199412477CAF8:1058095214:::::13x:
 			my @sigline = grep { /^sig/ } (split /\n/, $stdout);
+			$stdout =~ s/\n/\\n/g;
+			notice("[sigremoval] why are there ".(scalar @sigline)." siglines in that part of the dialog!? got: $stdout") 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
+				debug("[sigremoval] doing line $line.");
 				my ($dummy1, $dummy2, $dummy3, $dummy4, $signer, $created, $dummy7, $dummy8, $dummy9) = split /:/, $line;
 				if ($signer eq $longkeyid) {
 					debug("[sigremoval] selfsig ($signer).");
@@ -700,6 +702,8 @@ for my $keyid (@keyids_ok) {
 					debug("[sigremoval] not interested in that sig ($signer).");
 					$answer = "yes";
 				};
+			} else {
+				debug("[sigremoval] no sig line here, only got: ".$stdout);
 			};
 			($stdout, $stderr, $status) =
 				readwrite_gpg($answer."\n", $inputfd, $stdoutfd, $stderrfd, $statusfd, exitwhenstatusmatches => $KEYEDIT_KEYEDIT_OR_DELSIG_PROMPT, nocloseinput => 1);