diff options
| author | Norbert Preining <preining@logic.at> | 2008-05-08 21:35:54 +0000 |
|---|---|---|
| committer | Norbert Preining <preining@logic.at> | 2008-05-08 21:35:54 +0000 |
| commit | 05a10c0d3c6f5066f3a73d5a1f9a18bfa3387572 (patch) | |
| tree | b5dd4c4fbc593525fb705317cb8fbfdb21dae0d3 /Master/tlpkg | |
| parent | 35cb33b8777bf424d169f588af8518c1b25389ba (diff) | |
TLMedia shold not load a default location
git-svn-id: svn://tug.org/texlive/trunk@7952 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/tlpkg')
| -rw-r--r-- | Master/tlpkg/TeXLive/TLMedia.pm | 6 |
1 files changed, 5 insertions, 1 deletions
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'; |