diff options
-rwxr-xr-x | Master/install-tl | 16 |
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)", |