diff options
| author | Norbert Preining <preining@logic.at> | 2009-07-24 14:23:43 +0000 |
|---|---|---|
| committer | Norbert Preining <preining@logic.at> | 2009-07-24 14:23:43 +0000 |
| commit | a1decda76154237cadf78242dc3d5965751fba20 (patch) | |
| tree | 63610875eec8f6a35dbe78817e5f06e3ffdfce93 | |
| parent | ca503bd93e9d7809b856361f1bea53941bbf4177 (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
| -rwxr-xr-x | Master/texmf/scripts/texlive/tlmgr.pl | 11 |
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"); |