access the internet only when installing from the NET

git-svn-id: svn://tug.org/texlive/trunk@9343 c570f23f-e606-0410-a88d-b1316a301751

1 files changed, 3 insertions, 2 deletions

diff --git a/Master/install-tl b/Master/install-tl
index 8bfeca3da2c..3d2e77b7079 100755
--- a/Master/install-tl
+++ b/Master/install-tl
@@ -331,8 +331,9 @@ $vars{'from_dvd'} = $opt_from_dvd;
 
 setup_programs ("$::installerdir/tlpkg/installer", "$::_platform_");
 $opt_url =~ s,/(tlpkg)?/*$,, if $opt_url;  # remove any trailing tlpkg or /
-$TeXLiveURL = $opt_url || TeXLive::TLUtils::give_ctan_mirror();
-if (media() eq "NET") {
+
+if ($::_media_ eq "NET") {
+  $TeXLiveURL = $opt_url || TeXLive::TLUtils::give_ctan_mirror();
   info("Using URL $TeXLiveURL\n");
 }
 load_tlpdb();