summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorNorbert Preining <preining@logic.at>2009-10-18 01:34:26 +0000
committerNorbert Preining <preining@logic.at>2009-10-18 01:34:26 +0000
commit0871e4c984204a5d21a9b9f1f106722e3d65da0a (patch)
treef291fbdbc092a22f0ab6b62f80f7b6d17279e0e5
parent58c675def03a7c4f9e78ca511d65402c61fb1b1e (diff)
reduce duplication
git-svn-id: svn://tug.org/texlive/trunk@15821 c570f23f-e606-0410-a88d-b1316a301751
-rw-r--r--Master/tlpkg/TeXLive/TLUtils.pm4
1 files changed, 2 insertions, 2 deletions
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