only test $opt_help once

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

1 files changed, 8 insertions, 8 deletions

diff --git a/Master/install-tl b/Master/install-tl
index 18fdff4b160..9e18a3b1b20 100755
--- a/Master/install-tl
+++ b/Master/install-tl
@@ -233,15 +233,15 @@ if ($opt_gui eq "expert") {
   $opt_gui = "perltk";
 }
 
-if (win32()) {
-  pod2usage(-exitstatus => 0,
-            -verbose => 2,
-            -noperldoc => 1,
-            -output  => \*STDOUT) if $opt_help;
-} else {
-  pod2usage(-exitstatus => 0, -verbose => 2, -file => $0) if $opt_help;
+if ($opt_help) {
+  if (win32()) {
+    pod2usage(-exitstatus => 0, -verbose => 2,
+              -noperldoc  => 1, -output  => \*STDOUT);
+  } else {
+    pod2usage(-exitstatus => 0, -verbose => 2, -file => $0);
+  }
+  die "sorry, pod2usage failure, maybe download failure?";
 }
-exit(1) if $opt_help;  # if pod2usage failed, don't keep going.
 
 if ($opt_version) {
   print "install-tl (TeX Live Cross Platform Installer)",