diff options
| author | Norbert Preining <preining@logic.at> | 2009-01-09 00:11:33 +0000 |
|---|---|---|
| committer | Norbert Preining <preining@logic.at> | 2009-01-09 00:11:33 +0000 |
| commit | b46f3f9a1ed8e3e5e7cd669f1d6efb0b2598bf89 (patch) | |
| tree | 12eef24a747c02d9e8717f4faa2115e634029555 /Master/texmf/scripts | |
| parent | 1a0c00c20245a3321446a25088bda2b6b7f1f628 (diff) | |
use the @noperldoc thingy at the second pod2usage invocation, too
git-svn-id: svn://tug.org/texlive/trunk@11828 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/texmf/scripts')
| -rwxr-xr-x | Master/texmf/scripts/texlive/tlmgr2.pl | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/Master/texmf/scripts/texlive/tlmgr2.pl b/Master/texmf/scripts/texlive/tlmgr2.pl index 7833ab99286..ff1d320592d 100755 --- a/Master/texmf/scripts/texlive/tlmgr2.pl +++ b/Master/texmf/scripts/texlive/tlmgr2.pl @@ -238,11 +238,11 @@ if (@notvalidargs) { # -verbose => 99 # -sections => "ACTIONS/$action.*" # to show the correct invocation of the action - if (TeXLive::TLUtils::which("perldoc")) { - pod2usage(-msg => $msg, -exitstatus => 1, -verbose => 1); - } else { - pod2usage(-msg => $msg, -exitstatus => 1, -verbose => 1, -noperldoc => 1); + my @noperldoc = (); + if (win32() || ! TeXLive::TLUtils::which("perldoc")) { + @noperldoc = ("-noperldoc", "1"); } + pod2usage(-msg => $msg, -exitstatus => 1, -verbose => 1, @noperldoc); } # besides doing normal logging if -logfile is specified, we try to log |