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, 11 insertions, 4 deletions

diff --git a/Build/source/texk/texlive/linked_scripts/getnonfreefonts/getnonfreefonts.pl b/Build/source/texk/texlive/linked_scripts/getnonfreefonts/getnonfreefonts.pl
index 9132b1779ee..830bbad4447 100755
--- a/Build/source/texk/texlive/linked_scripts/getnonfreefonts/getnonfreefonts.pl
+++ b/Build/source/texk/texlive/linked_scripts/getnonfreefonts/getnonfreefonts.pl
@@ -11,8 +11,8 @@
 # 
 # The current maintainer is Reinhard Kotucha.
 
-my $TL_version='2008';  
-my $revision='2009-01-29';
+my $TL_version='2009';  
+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; 
 }