summaryrefslogtreecommitdiff
path: root/Master/tlpkg/TeXLive/TLPDB.pm
diff options
context:
space:
mode:
Diffstat (limited to 'Master/tlpkg/TeXLive/TLPDB.pm')
-rw-r--r--Master/tlpkg/TeXLive/TLPDB.pm7
1 files changed, 4 insertions, 3 deletions
diff --git a/Master/tlpkg/TeXLive/TLPDB.pm b/Master/tlpkg/TeXLive/TLPDB.pm
index 55000384f64..1ee3b382990 100644
--- a/Master/tlpkg/TeXLive/TLPDB.pm
+++ b/Master/tlpkg/TeXLive/TLPDB.pm
@@ -189,8 +189,8 @@ sub from_file {
my $root_from_path = dirname(dirname($path));
if (defined($self->{'root'})) {
if ($self->{'root'} ne $root_from_path) {
- printf STDERR "root=$self->{'root'}, root_from_path=$root_from_path\n";
- printf STDERR "Initialisation from different location as originally given.\nHope you are sure!\n";
+ tlwarn("root=$self->{'root'}, root_from_path=$root_from_path\n");
+ tlwarn("Initialisation from different location as originally given.\nHope you are sure!\n");
}
} else {
$self->root($root_from_path);
@@ -227,11 +227,12 @@ sub from_file {
open $retfh, "<$tlpdbfile" or die"Cannot open $tlpdbfile!";
debug("Ok, found the uncompressed lzma file!\n");
}
- }
+ }
} else {
debug("no lzmadec defined, not trying tlpdb.lzma ...\n");
}
if (!defined($retfh)) {
+ debug("TLPDB: downloading $path.lzma didn't succeed, try $path\n");
# lzma did not succeed, so try the normal file
$retfh = TeXLive::TLUtils::download_file($path, "|");
if (!$retfh) {