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 6f78dc9f20bfd81b483a301b2771f4ae24114cad..a93676dc48d6b1edfa5f068094d36174ee90c892 100644 (file)
--- 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 = '(';