diff options
Diffstat (limited to 'Master/tlpkg/TeXLive/TLPDB.pm')
| -rw-r--r-- | Master/tlpkg/TeXLive/TLPDB.pm | 7 |
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) { |