From 0871e4c984204a5d21a9b9f1f106722e3d65da0a Mon Sep 17 00:00:00 2001 From: Norbert Preining Date: Sun, 18 Oct 2009 01:34:26 +0000 Subject: reduce duplication git-svn-id: svn://tug.org/texlive/trunk@15821 c570f23f-e606-0410-a88d-b1316a301751 --- Master/tlpkg/TeXLive/TLUtils.pm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'Master') diff --git a/Master/tlpkg/TeXLive/TLUtils.pm b/Master/tlpkg/TeXLive/TLUtils.pm index f839d04d5bc..f8eeec3ba39 100644 --- a/Master/tlpkg/TeXLive/TLUtils.pm +++ b/Master/tlpkg/TeXLive/TLUtils.pm @@ -3007,11 +3007,11 @@ sub give_ctan_mirror_base # we need the verbose output, so no -q. # do not reduce retries here, but timeout still seems desirable. - my $cmd = "$wget $TeXLiveServerURL --timeout=60 -O " + my $mirror = $TeXLiveServerURL; + my $cmd = "$wget $mirror --timeout=60 -O " . (win32() ? "nul" : "/dev/null") . " 2>&1"; my @out = `$cmd`; # analyze the output for the mirror actually selected. - my $mirror = $TeXLiveServerURL; foreach (@out) { if (m/^Location: (\S*)\s*.*$/) { (my $mhost = $1) =~ s,/*$,,; # remove trailing slashes since we add it -- cgit v1.2.3