texlive[48874] Master/tlpkg/TeXLive/TLPDB.pm: allow TLPDB->from_file

[commits+preining at tug.org]

Revision: 48874
          http://tug.org/svn/texlive?view=revision&revision=48874
Author:   preining
Date:     2018-10-10 04:42:50 +0200 (Wed, 10 Oct 2018)
Log Message:
-----------
allow TLPDB->from_file to manually set media type

Modified Paths:
--------------
    trunk/Master/tlpkg/TeXLive/TLPDB.pm

Modified: trunk/Master/tlpkg/TeXLive/TLPDB.pm
===================================================================
--- trunk/Master/tlpkg/TeXLive/TLPDB.pm	2018-10-10 00:23:16 UTC (rev 48873)
+++ trunk/Master/tlpkg/TeXLive/TLPDB.pm	2018-10-10 02:42:50 UTC (rev 48874)
@@ -287,7 +287,9 @@
     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';