From 4f3fa68f642c21f3597b0f51937059981f2064e3 Mon Sep 17 00:00:00 2001 From: Norbert Preining Date: Sat, 12 Jul 2008 12:01:19 +0000 Subject: TLMedia: again a fix for correct media detection git-svn-id: svn://tug.org/texlive/trunk@9467 c570f23f-e606-0410-a88d-b1316a301751 --- Master/tlpkg/TeXLive/TLMedia.pm | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) diff --git a/Master/tlpkg/TeXLive/TLMedia.pm b/Master/tlpkg/TeXLive/TLMedia.pm index 03fb7301bed..2f2737689f9 100644 --- a/Master/tlpkg/TeXLive/TLMedia.pm +++ b/Master/tlpkg/TeXLive/TLMedia.pm @@ -25,9 +25,12 @@ sub new # no default by itself ... # $location = "$TeXLiveURL" unless (defined($location)); # do media autodetection - if ($location =~ m,http://|ftp://|file://*,) { + if ($location =~ m,http://|ftp://,) { $media = 'NET'; } else { + if ($location =~ m,file://*(.*)$,) { + $location = "/$1"; + } if (-d "$location/texmf/web2c") { $media = 'DVD'; } elsif (-d "$location/$Archive") { -- cgit v1.2.3