summaryrefslogtreecommitdiff
path: root/Build
diff options
context:
space:
mode:
authorReinhard Kotucha <reinhard.kotucha@web.de>2009-08-08 19:26:20 +0000
committerReinhard Kotucha <reinhard.kotucha@web.de>2009-08-08 19:26:20 +0000
commit8804b963b3e949297f98094fb336c7bb564203f8 (patch)
tree137909bf4483a80795d8bbf9abe158d4bf166057 /Build
parent5121cb2fd331cc140fe91dc13c95fc2be5645ed9 (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 'Build')
-rwxr-xr-xBuild/source/texk/texlive/linked_scripts/getnonfreefonts/getnonfreefonts.pl15
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;
}