getnonfreefonts.pl: unknown option: print usage message and abort.

git-svn-id: svn://tug.org/texlive/trunk@14584 c570f23f-e606-0410-a88d-b1316a301751

1 files changed, 10 insertions, 3 deletions

diff --git a/Master/texmf/scripts/getnonfreefonts/getnonfreefonts.pl b/Master/texmf/scripts/getnonfreefonts/getnonfreefonts.pl
index 7ba90db419e..830bbad4447 100755
--- a/Master/texmf/scripts/getnonfreefonts/getnonfreefonts.pl
+++ b/Master/texmf/scripts/getnonfreefonts/getnonfreefonts.pl
@@ -12,7 +12,7 @@
 # The current maintainer is Reinhard Kotucha.
 
 my $TL_version='2009';  
-my $revision='2009-06-05';
+my $revision='2009-08-08';
 
 use Getopt::Long;
 $Getopt::Long::autoabbrev=0;
@@ -54,7 +54,8 @@ EOF
 
 @ARGS=@ARGV;
 
-GetOptions 
+
+$done=GetOptions 
     "all|a",
     "debug|d",
     "force|f",
@@ -65,6 +66,12 @@ GetOptions
     "version",
     "sys";
 
+
+unless ($done) {
+    print "\n"; usage; exit 1;
+}
+
+
 $^W=1 if $opt_debug;
 
 my $sys=($0=~/-sys$/)? 1:0;
@@ -78,7 +85,7 @@ print "$TL_version\n" and exit 0 if $opt_version;
 if ($opt_help or !@ARGS) {
     print "\nThis is getnonfreefonts";
     print '-sys' if ($sys);
-    print ", version $TL_version.\n\n";
+    print ", version $TL_version, revision $revision.\n\n";
     usage; 
 }