diff options
| author | Norbert Preining <preining@logic.at> | 2018-10-10 02:42:50 +0000 |
|---|---|---|
| committer | Norbert Preining <preining@logic.at> | 2018-10-10 02:42:50 +0000 |
| commit | 9cdd1ac8ebab8dc6a95ea8e5d1e77ebdf59ef552 (patch) | |
| tree | 6e1bff21f660db2699bb2b1b672c5712165daa0d | |
| parent | 013557f27707d45168d112e1d06aa07fcc255d5c (diff) | |
allow TLPDB->from_file to manually set media type
git-svn-id: svn://tug.org/texlive/trunk@48874 c570f23f-e606-0410-a88d-b1316a301751
| -rw-r--r-- | Master/tlpkg/TeXLive/TLPDB.pm | 4 |
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'; |