summaryrefslogtreecommitdiff
path: root/Master/install-tl
diff options
context:
space:
mode:
authorKarl Berry <karl@freefriends.org>2014-05-05 23:14:19 +0000
committerKarl Berry <karl@freefriends.org>2014-05-05 23:14:19 +0000
commit92b8cbab63bac836f69fad5c28dc6464c1e0fcee (patch)
tree5ec9909be2d96cea362ac7c1ccd2aa8f7d56820c /Master/install-tl
parentc7004c8718abf047b43bc17524ab72fa1fb2ae4a (diff)
only test $opt_help once
git-svn-id: svn://tug.org/texlive/trunk@33869 c570f23f-e606-0410-a88d-b1316a301751
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)",