summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorNorbert Preining <preining@logic.at>2008-04-16 11:23:13 +0000
committerNorbert Preining <preining@logic.at>2008-04-16 11:23:13 +0000
commit3301b7e62ab0bc5eb0c8f96cdc93b50cdd84cac3 (patch)
tree2ab2c25627b4721747ca59c8e609be5daed8e311
parent59cb69cfdcaa2ca7faf2e61b58fb2cd0d2c98b5f (diff)
small fix for empty argument
git-svn-id: svn://tug.org/texlive/trunk@7451 c570f23f-e606-0410-a88d-b1316a301751
-rwxr-xr-xMaster/texmf/scripts/texlive/tl-package-manager.pl7
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;