Give Usage when called with no arguments

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

diff --git a/gpglist/gpglist b/gpglist/gpglist
index 1d253e372c8d9185285507e6f7d8a4aaae7ed190..42b4dcea3d00abc04cb9d5cc6cd7dac80f461e6a 100755 (executable)
--- a/gpglist/gpglist
+++ b/gpglist/gpglist
@@ -32,10 +32,11 @@
 
 use strict;
 use warnings;
+use English;
 
 my $key=shift @ARGV;
-if ( $key eq "" ) {
-       die
+unless (defined $key) {
+       die "Usage: $PROGRAM_NAME <keyid>\n";
 }
 
 open SIGS, "gpg --fixed-list-mode --with-colons --list-sigs $key 2>/dev/null |"