summaryrefslogtreecommitdiff
path: root/Master/tlpkg/TeXLive/TLPDB.pm
diff options
context:
space:
mode:
authorNorbert Preining <preining@logic.at>2018-10-10 02:42:50 +0000
committerNorbert Preining <preining@logic.at>2018-10-10 02:42:50 +0000
commit9cdd1ac8ebab8dc6a95ea8e5d1e77ebdf59ef552 (patch)
tree6e1bff21f660db2699bb2b1b672c5712165daa0d /Master/tlpkg/TeXLive/TLPDB.pm
parent013557f27707d45168d112e1d06aa07fcc255d5c (diff)
allow TLPDB->from_file to manually set media type
git-svn-id: svn://tug.org/texlive/trunk@48874 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/tlpkg/TeXLive/TLPDB.pm')
-rw-r--r--Master/tlpkg/TeXLive/TLPDB.pm4
1 files changed, 3 insertions, 1 deletions
diff --git a/Master/tlpkg/TeXLive/TLPDB.pm b/Master/tlpkg/TeXLive/TLPDB.pm
index cfd5b2fa2fc..f7a76b9461d 100644
--- a/Master/tlpkg/TeXLive/TLPDB.pm
+++ b/Master/tlpkg/TeXLive/TLPDB.pm
@@ -287,7 +287,9 @@ sub from_file {
if ($rootpath =~ m,file://*(.*)$,) {
$rootpath = "/$1";
}
- if (-d "$rootpath/texmf-dist/web2c") {
+ if ($params{'media'}) {
+ $media = $params{'media'};
+ } elsif (-d "$rootpath/texmf-dist/web2c") {
$media = 'local_uncompressed';
} elsif (-d "$rootpath/texmf/web2c") { # older
$media = 'local_uncompressed';