summaryrefslogtreecommitdiff
path: root/systems/texlive/tlnet/tlpkg/TeXLive
diff options
context:
space:
mode:
authorNorbert Preining <norbert@preining.info>2019-09-25 03:00:48 +0000
committerNorbert Preining <norbert@preining.info>2019-09-25 03:00:48 +0000
commitd232e1107d60e7689e706bee9705f26745ae8b9e (patch)
treef9ac3303fdb36c2eca1872286615c0931d952476 /systems/texlive/tlnet/tlpkg/TeXLive
parent94c2e367c3690be2a3c715b4577c81200652ad81 (diff)
CTAN sync 201909250300
Diffstat (limited to 'systems/texlive/tlnet/tlpkg/TeXLive')
-rw-r--r--systems/texlive/tlnet/tlpkg/TeXLive/TLPDB.pm10
1 files changed, 7 insertions, 3 deletions
diff --git a/systems/texlive/tlnet/tlpkg/TeXLive/TLPDB.pm b/systems/texlive/tlnet/tlpkg/TeXLive/TLPDB.pm
index 6b942d2f74..49125acb8b 100644
--- a/systems/texlive/tlnet/tlpkg/TeXLive/TLPDB.pm
+++ b/systems/texlive/tlnet/tlpkg/TeXLive/TLPDB.pm
@@ -1,4 +1,4 @@
-# $Id: TLPDB.pm 51841 2019-08-07 22:31:44Z karl $
+# $Id: TLPDB.pm 52167 2019-09-24 16:02:28Z karl $
# TeXLive::TLPDB.pm - tlpdb plain text database files.
# Copyright 2007-2019 Norbert Preining
# This file is licensed under the GNU General Public License version 2
@@ -6,7 +6,7 @@
package TeXLive::TLPDB;
-my $svnrev = '$Revision: 51841 $';
+my $svnrev = '$Revision: 52167 $';
my $_modulerevision = ($svnrev =~ m/: ([0-9]+) /) ? $1 : "unknown";
sub module_revision { return $_modulerevision; }
@@ -290,6 +290,10 @@ sub from_file {
}
if ($params{'media'}) {
$media = $params{'media'};
+ } elsif (! -d $rootpath) {
+ # no point in going on if we don't even have a directory.
+ tlwarn("TLPDB: not a directory, not loading: $rootpath\n");
+ return 0;
} elsif (-d "$rootpath/texmf-dist/web2c") {
$media = 'local_uncompressed';
} elsif (-d "$rootpath/texmf/web2c") { # older
@@ -300,7 +304,7 @@ sub from_file {
$media = 'local_compressed';
} else {
# we cannot find the right type, return zero, hope people notice
- tlwarn("Cannot determine type of tlpdb from $rootpath!\n");
+ tlwarn("TLPDB: Cannot determine type of tlpdb from $rootpath!\n");
return 0;
}
}