summaryrefslogtreecommitdiff
path: root/Master/texmf/scripts
diff options
context:
space:
mode:
authorNorbert Preining <preining@logic.at>2009-01-09 00:11:33 +0000
committerNorbert Preining <preining@logic.at>2009-01-09 00:11:33 +0000
commitb46f3f9a1ed8e3e5e7cd669f1d6efb0b2598bf89 (patch)
tree12eef24a747c02d9e8717f4faa2115e634029555 /Master/texmf/scripts
parent1a0c00c20245a3321446a25088bda2b6b7f1f628 (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-xMaster/texmf/scripts/texlive/tlmgr2.pl8
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