From 05a10c0d3c6f5066f3a73d5a1f9a18bfa3387572 Mon Sep 17 00:00:00 2001
From: Norbert Preining <preining@logic.at>
Date: Thu, 8 May 2008 21:35:54 +0000
Subject: TLMedia shold not load a default location

git-svn-id: svn://tug.org/texlive/trunk@7952 c570f23f-e606-0410-a88d-b1316a301751
---
 Master/tlpkg/TeXLive/TLMedia.pm | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

diff --git a/Master/tlpkg/TeXLive/TLMedia.pm b/Master/tlpkg/TeXLive/TLMedia.pm
index 94d331af14a..15908aa3ef8 100644
--- a/Master/tlpkg/TeXLive/TLMedia.pm
+++ b/Master/tlpkg/TeXLive/TLMedia.pm
@@ -19,7 +19,11 @@ sub new
   my ($class, $location) = @_;
   my $media;
   # of no argument is given we assume NET and default URL
-  $location = "$TeXLiveURL" unless (defined($location));
+  if (!defined($location)) {
+    return;
+  }
+  # no default by itself ...
+  # $location = "$TeXLiveURL" unless (defined($location));
   # do media autodetection
   if ($location =~ m,http://|ftp://,) {
     $media = 'NET';
-- 
cgit v1.2.3