diff options
author | Reinhard Kotucha <reinhard.kotucha@web.de> | 2009-08-08 19:26:20 +0000 |
---|---|---|
committer | Reinhard Kotucha <reinhard.kotucha@web.de> | 2009-08-08 19:26:20 +0000 |
commit | 8804b963b3e949297f98094fb336c7bb564203f8 (patch) | |
tree | 137909bf4483a80795d8bbf9abe158d4bf166057 /Master/texmf | |
parent | 5121cb2fd331cc140fe91dc13c95fc2be5645ed9 (diff) |
getnonfreefonts.pl: unknown option: print usage message and abort.
git-svn-id: svn://tug.org/texlive/trunk@14584 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/texmf')
-rwxr-xr-x | Master/texmf/scripts/getnonfreefonts/getnonfreefonts.pl | 13 |
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; } |