From 8804b963b3e949297f98094fb336c7bb564203f8 Mon Sep 17 00:00:00 2001 From: Reinhard Kotucha Date: Sat, 8 Aug 2009 19:26:20 +0000 Subject: getnonfreefonts.pl: unknown option: print usage message and abort. git-svn-id: svn://tug.org/texlive/trunk@14584 c570f23f-e606-0410-a88d-b1316a301751 --- Master/texmf/scripts/getnonfreefonts/getnonfreefonts.pl | 13 ++++++++++--- 1 file changed, 10 insertions(+), 3 deletions(-) (limited to 'Master/texmf') 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; } -- cgit v1.2.3