diff options
author | Norbert Preining <preining@logic.at> | 2008-04-16 11:23:13 +0000 |
---|---|---|
committer | Norbert Preining <preining@logic.at> | 2008-04-16 11:23:13 +0000 |
commit | 3301b7e62ab0bc5eb0c8f96cdc93b50cdd84cac3 (patch) | |
tree | 2ab2c25627b4721747ca59c8e609be5daed8e311 | |
parent | 59cb69cfdcaa2ca7faf2e61b58fb2cd0d2c98b5f (diff) |
small fix for empty argument
git-svn-id: svn://tug.org/texlive/trunk@7451 c570f23f-e606-0410-a88d-b1316a301751
-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; |