From: weasel <weasel@b513b33f-fedd-0310-b452-c3deb5f4c849>
Date: Sat, 18 Jun 2005 16:54:01 +0000 (+0000)
Subject: End warns with newlines
X-Git-Url: https://git.sthu.org/?a=commitdiff_plain;h=e59a6d46869fb001735bc83b2dbb4953a00322bd;p=pgp-tools.git

End warns with newlines

git-svn-id: svn://svn.debian.org/pgp-tools/trunk@68 b513b33f-fedd-0310-b452-c3deb5f4c849
---

diff --git a/gpgsigs/gpgsigs b/gpgsigs/gpgsigs
index 6f78dc9..a93676d 100644
--- a/gpgsigs/gpgsigs
+++ b/gpgsigs/gpgsigs
@@ -199,10 +199,10 @@ for my $k ( keys %{$sigs} ) {
 
 
 # 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;
-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;
 
@@ -218,7 +218,7 @@ sub print_tag
 {
 	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 = '(';