X-Git-Url: http://git.sthu.org/?a=blobdiff_plain;f=caff%2Fcaff;h=73aacd55e37ea27e2297f4ad89cf5ca2a711605d;hb=867fc0dc05487e335fc76970534447e0d417ec2f;hp=a22ac477fdbf2a05af72f314616d08f7bb8ce7cc;hpb=9a69b61d87a542835d8722eb0dc6148be45aefd3;p=pgp-tools.git diff --git a/caff/caff b/caff/caff index a22ac47..73aacd5 100755 --- a/caff/caff +++ b/caff/caff @@ -684,7 +684,8 @@ 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 + $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"; if (defined $line) { # only if we found a sig here - we never remove revocation packets for instance @@ -702,7 +703,6 @@ for my $keyid (@keyids_ok) { $answer = "yes"; }; } else { - $stdout =~ s/\n/\\n/g; debug("[sigremoval] no sig line here, only got: ".$stdout); }; ($stdout, $stderr, $status) =