diff options
-rwxr-xr-x | Master/texmf/scripts/texlive/tl-package-manager.pl | 7 |
1 files changed, 6 insertions, 1 deletions
diff --git a/Master/texmf/scripts/texlive/tl-package-manager.pl b/Master/texmf/scripts/texlive/tl-package-manager.pl index f3ea8c3ab82..0fda2b2f1c6 100755 --- a/Master/texmf/scripts/texlive/tl-package-manager.pl +++ b/Master/texmf/scripts/texlive/tl-package-manager.pl @@ -66,13 +66,18 @@ GetOptions("location=s" => \$opt_location, "dry-run" => \$opt_dry, "debug!", "h|help|?" => \$opt_help) or pod2usage(1); +my $action = shift; +if (!defined($action)) { + # no argument given + $opt_help = 1; +} + if ($^O=~/^MSWin(32|64)$/i) { pod2usage(-exitstatus => 0, -verbose => 2, -noperldoc => 1) if $opt_help; } else { pod2usage(-exitstatus => 0, -verbose => 2) if $opt_help; } -my $action = shift; if ($opt_debug) { $::LOGLEVELFILE = $::LOG_DDDEBUG; |