use the @noperldoc thingy at the second pod2usage invocation, too

git-svn-id: svn://tug.org/texlive/trunk@11828 c570f23f-e606-0410-a88d-b1316a301751

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