projects
/
pgp-tools.git
/ blobdiff
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Update gpg-delsig description in manual
[pgp-tools.git]
/
gpgsigs
/
gpgsigs
diff --git
a/gpgsigs/gpgsigs
b/gpgsigs/gpgsigs
index 6f78dc9f20bfd81b483a301b2771f4ae24114cad..a93676dc48d6b1edfa5f068094d36174ee90c892 100644
(file)
--- a/
gpgsigs/gpgsigs
+++ b/
gpgsigs/gpgsigs
@@
-199,10
+199,10
@@
for my $k ( keys %{$sigs} ) {
# read checksums
# read checksums
-open MD, "gpg --print-md md5 $keytxt|" or warn "can't get gpg md5";
+open MD, "gpg --print-md md5 $keytxt|" or warn "can't get gpg md5
\n
";
my $MD5 = <MD>;
close MD;
my $MD5 = <MD>;
close MD;
-open MD, "gpg --print-md sha1 $keytxt|" or warn "can't get gpg sha1";
+open MD, "gpg --print-md sha1 $keytxt|" or warn "can't get gpg sha1
\n
";
my $SHA1 = <MD>;
close MD;
my $SHA1 = <MD>;
close MD;
@@
-218,7
+218,7
@@
sub print_tag
{
my ($key, $uid) = @_;
if (! defined $sigs->{$key}->{$uid}) {
{
my ($key, $uid) = @_;
if (! defined $sigs->{$key}->{$uid}) {
- warn "uid '$uid' not found on key $key";
+ warn "uid '$uid' not found on key $key
\n
";
return '(_)';
}
my $r = '(';
return '(_)';
}
my $r = '(';