From 9a69b61d87a542835d8722eb0dc6148be45aefd3 Mon Sep 17 00:00:00 2001 From: weasel Date: Wed, 20 Oct 2004 11:12:50 +0000 Subject: [PATCH] One more debug output git-svn-id: svn://svn.debian.org/pgp-tools/trunk@22 b513b33f-fedd-0310-b452-c3deb5f4c849 --- caff/caff | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) diff --git a/caff/caff b/caff/caff index 4c5e641..a22ac47 100755 --- a/caff/caff +++ b/caff/caff @@ -687,8 +687,8 @@ for my $keyid (@keyids_ok) { 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 + 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)."); @@ -701,6 +701,9 @@ for my $keyid (@keyids_ok) { debug("[sigremoval] not interested in that sig ($signer)."); $answer = "yes"; }; + } else { + $stdout =~ s/\n/\\n/g; + 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); -- 2.39.5