diff options
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"; } |