diff --git a/pgpverify b/pgpverify index b361607..e703ae4 100755 --- a/pgpverify +++ b/pgpverify @@ -1,6 +1,11 @@ #! /usr/bin/perl -w # written April 1996, tale@uunet.uu.net (David C Lawrence) -# Version 1.4 +# Version 1.5 +# +# Changes from 1.4 -> 1.5 +# -- force English lanugage for 'Good signature from user' by passing +# +language=en on pgp command line, rather than setting the +# environment variable LANGUAGE to 'en'. # # Changes from 1.3 -> 1.4 # -- now handles wrapped headers that have been unfolded. @@ -97,9 +102,8 @@ close(TMP) || warn "$0: close > $tmp: $!\n"; &fail("$0: write error for message to check\n") if -s $tmp != length($message); -$ENV{'LANGUAGE'} = 'en'; # force English for pgp messages $ok = 2; # unknown signature result is default -open(PGP,"$pgp -f < $tmp 2>&1 >/dev/null |") || +open(PGP,"$pgp -f +language=en < $tmp 2>&1 >/dev/null |") || &fail("$0: failed to execute pgp: $!\n"); $/ = "\n";