summaryrefslogtreecommitdiff
path: root/Master
diff options
context:
space:
mode:
authorNorbert Preining <preining@logic.at>2009-07-24 14:23:43 +0000
committerNorbert Preining <preining@logic.at>2009-07-24 14:23:43 +0000
commita1decda76154237cadf78242dc3d5965751fba20 (patch)
tree63610875eec8f6a35dbe78817e5f06e3ffdfce93 /Master
parentca503bd93e9d7809b856361f1bea53941bbf4177 (diff)
use pod2usage so that
tlmgr --help update only shows the help for update git-svn-id: svn://tug.org/texlive/trunk@14426 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master')
-rwxr-xr-xMaster/texmf/scripts/texlive/tlmgr.pl11
1 files changed, 6 insertions, 5 deletions
diff --git a/Master/texmf/scripts/texlive/tlmgr.pl b/Master/texmf/scripts/texlive/tlmgr.pl
index 945647da37b..aa52b48e952 100755
--- a/Master/texmf/scripts/texlive/tlmgr.pl
+++ b/Master/texmf/scripts/texlive/tlmgr.pl
@@ -223,7 +223,12 @@ if ($opts{"help"}) {
if (win32() || ! TeXLive::TLUtils::which("perldoc")) {
@noperldoc = ("-noperldoc", "1");
}
- pod2usage("-exitstatus" => 0, "-verbose" => 2, @noperldoc);
+ if ($action && ($action ne "help")) {
+ pod2usage(-exitstatus => 0, -verbose => 99,
+ -sections => "ACTIONS/$action.*" , @noperldoc);
+ } else {
+ pod2usage(-exitstatus => 0, -verbose => 2, @noperldoc);
+ }
}
# unify arguments so that the $action contains paper in all cases
@@ -261,10 +266,6 @@ if (@notvalidargs) {
$msg .= " $c";
}
$msg .= "\n";
- # here we should call pod2usage actually with the argument
- # -verbose => 99
- # -sections => "ACTIONS/$action.*"
- # to show the correct invocation of the action
my @noperldoc = ();
if (win32() || ! TeXLive::TLUtils::which("perldoc")) {
@noperldoc = ("-noperldoc", "1");