diff options
author | Norbert Preining <preining@logic.at> | 2008-07-10 10:27:48 +0000 |
---|---|---|
committer | Norbert Preining <preining@logic.at> | 2008-07-10 10:27:48 +0000 |
commit | 3726af04a35d7fbf92f6da3ecef2b54d238f27f6 (patch) | |
tree | d9b2764ec33b25e902bb8bcf16065e8c1f924da7 /Master/tlpkg/TeXLive/TLPDB.pm | |
parent | 1c7f172eca48842ba65a3b1069c92059832bf3cb (diff) |
TLUtils: process_logging_options now also sets $::LOGFILENAME
TLUtils: download_file: fix stupid error when downloading to | and returning 1
tlmgr/tlmgrgui: use process_logging_options, and transfer between the two
back and forth. Well at least from tlmgr to tlmgrgui, unfortunately we
cannot transfer it backwards without overwriting stuff already written there
git-svn-id: svn://tug.org/texlive/trunk@9427 c570f23f-e606-0410-a88d-b1316a301751
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) { |