summaryrefslogtreecommitdiff
path: root/Master/install-tl
diff options
context:
space:
mode:
Diffstat (limited to 'Master/install-tl')
-rwxr-xr-xMaster/install-tl16
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)",