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 10bbc7b9cf1..1ff426e7833 100644 --- a/Master/tlpkg/TeXLive/TLPDB.pm +++ b/Master/tlpkg/TeXLive/TLPDB.pm @@ -60,7 +60,8 @@ C<TeXLive::TLPDB> -- A database of TeX Live Packages use TeXLive::TLConfig qw($CategoriesRegexp $DefaultCategory $InfraLocation $DatabaseName $MetaCategoriesRegexp); -use TeXLive::TLUtils qw(dirname mkdirhier member win32 info debug ddebug tlwarn); +use TeXLive::TLUtils qw(dirname mkdirhier member win32 info debug ddebug + tlwarn); use TeXLive::TLPOBJ; my $_listdir; @@ -266,7 +267,7 @@ sub from_file { my $ret = 0; do { my $tlp = TeXLive::TLPOBJ->new; - ddebug("creating tlp from $path...\n"); + debug("creating tlp from $path...\n"); $ret = $tlp->from_fh($retfh,1); if ($ret) { $self->add_tlpobj($tlp); @@ -295,7 +296,7 @@ sub writeout { my $self = shift; my $fd = (@_ ? $_[0] : STDOUT); foreach (sort keys %{$self->{'tlps'}}) { - ddebug("tlpname = $_\n"); + debug("writeout: tlpname = $_\n"); ddebug("foo: ", $self->{'tlps'}{$_}->name, "\n"); $self->{'tlps'}{$_}->writeout($fd); print $fd "\n"; |