diff options
-rwxr-xr-x | Build/source/texk/texlive/linked_scripts/getnonfreefonts/getnonfreefonts.pl | 15 | ||||
-rwxr-xr-x | Master/texmf/scripts/getnonfreefonts/getnonfreefonts.pl | 13 |
2 files changed, 21 insertions, 7 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; } 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; } |