diff options
author | Norbert Preining <preining@logic.at> | 2008-01-10 10:53:59 +0000 |
---|---|---|
committer | Norbert Preining <preining@logic.at> | 2008-01-10 10:53:59 +0000 |
commit | 5ab926badb5ad24f8b4b994ad5f18f0d2b3a6953 (patch) | |
tree | 09714be5b47fa1659d69008e5fb3e574f5e106d7 /Master/tlpkg/TeXLive/TLPDB.pm | |
parent | fdf785af06cac0cef5125a27f55f2b12bacb6d9a (diff) |
add logging facilities, see extra email
git-svn-id: svn://tug.org/texlive/trunk@6176 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/tlpkg/TeXLive/TLPDB.pm')
-rw-r--r-- | Master/tlpkg/TeXLive/TLPDB.pm | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/Master/tlpkg/TeXLive/TLPDB.pm b/Master/tlpkg/TeXLive/TLPDB.pm index 007dc3477d3..74b18051218 100644 --- a/Master/tlpkg/TeXLive/TLPDB.pm +++ b/Master/tlpkg/TeXLive/TLPDB.pm @@ -51,7 +51,7 @@ C<TeXLive::TLPDB> -- A database of TeX Live Packages use TeXLive::TLConfig qw($CategoriesRegexp $DefaultCategory $InfraLocation $DatabaseName); -use TeXLive::TLUtils qw(dirname mkdirhier); +use TeXLive::TLUtils qw(dirname mkdirhier tllog); use TeXLive::TLPOBJ; my $_listdir; @@ -134,7 +134,7 @@ sub from_file { my $found = 0; do { my $tlp = TeXLive::TLPOBJ->new; - &TeXLive::TLUtils::debug("creating tlp from $path..."); + tllog($::LOG_DDDEBUG, "creating tlp from $path...\n"); $found = $tlp->from_fh(\*TMP,1); if ($found) { $self->add_tlpobj($tlp); @@ -157,8 +157,8 @@ sub writeout { my $self = shift; my $fd = (@_ ? $_[0] : STDOUT); foreach (sort keys %{$self->{'tlps'}}) { - &TeXLive::TLUtils::debug("tlpname = $_"); - &TeXLive::TLUtils::debug("foo: " . $self->{'tlps'}{$_}->name); + tllog($::LOG_DDDEBUG, "tlpname = $_\n"); + tllog($::LOG_DDDEBUG, "foo: ", $self->{'tlps'}{$_}->name, "\n"); $self->{'tlps'}{$_}->writeout($fd); print $fd "\n"; } |