[Pgp-tools-commit] r68 - trunk/gpgsigs

[Peter Palfrader]

Author: weasel
Date: 2005-06-18 16:54:01 +0000 (Sat, 18 Jun 2005)
New Revision: 68

Modified:
   trunk/gpgsigs/gpgsigs
Log:
End warns with newlines

Modified: trunk/gpgsigs/gpgsigs
===================================================================
--- trunk/gpgsigs/gpgsigs	2005-06-18 16:52:45 UTC (rev 67)
+++ trunk/gpgsigs/gpgsigs	2005-06-18 16:54:01 UTC (rev 68)
@@ -199,10 +199,10 @@
 
 
 # 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 @@
 {
 	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 = '(';