From 92b8cbab63bac836f69fad5c28dc6464c1e0fcee Mon Sep 17 00:00:00 2001 From: Karl Berry Date: Mon, 5 May 2014 23:14:19 +0000 Subject: only test $opt_help once git-svn-id: svn://tug.org/texlive/trunk@33869 c570f23f-e606-0410-a88d-b1316a301751 --- Master/install-tl | 16 ++++++++-------- 1 file changed, 8 insertions(+), 8 deletions(-) (limited to 'Master/install-tl') 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)", -- cgit v1.2.3