summaryrefslogtreecommitdiff
path: root/Master/tlpkg/TeXLive/TLPDB.pm
diff options
context:
space:
mode:
authorKarl Berry <karl@freefriends.org>2021-05-06 20:21:11 +0000
committerKarl Berry <karl@freefriends.org>2021-05-06 20:21:11 +0000
commita4f1ad2e946443c9836b07ea343efc308048043f (patch)
treeb6ec020aa2622aecce4fd752236381efbb37182e /Master/tlpkg/TeXLive/TLPDB.pm
parent0f22d2ffb285c68fcbdf39454df79af0f9f372aa (diff)
(writeout): dddebug, since this happens on every package in tlpdb; other debugging tweaks
git-svn-id: svn://tug.org/texlive/trunk@59098 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/tlpkg/TeXLive/TLPDB.pm')
-rw-r--r--Master/tlpkg/TeXLive/TLPDB.pm8
1 files changed, 5 insertions, 3 deletions
diff --git a/Master/tlpkg/TeXLive/TLPDB.pm b/Master/tlpkg/TeXLive/TLPDB.pm
index af466e25a6b..337c7276ac8 100644
--- a/Master/tlpkg/TeXLive/TLPDB.pm
+++ b/Master/tlpkg/TeXLive/TLPDB.pm
@@ -1,6 +1,6 @@
# $Id$
# TeXLive::TLPDB.pm - tlpdb plain text database files.
-# Copyright 2007-2020 Norbert Preining
+# Copyright 2007-2021 Norbert Preining
# This file is licensed under the GNU General Public License version 2
# or any later version.
@@ -98,7 +98,8 @@ use TeXLive::TLConfig qw($CategoriesRegexp $DefaultCategory $InfraLocation
use TeXLive::TLCrypto;
use TeXLive::TLPOBJ;
use TeXLive::TLUtils qw(dirname mkdirhier member win32 info log debug ddebug
- tlwarn basename download_file merge_into tldie system_pipe);
+ tlwarn basename download_file merge_into tldie
+ system_pipe);
use TeXLive::TLWinGoo;
use Cwd 'abs_path';
@@ -424,7 +425,8 @@ sub writeout {
}
my $fd = (@_ ? $_[0] : STDOUT);
foreach (sort keys %{$self->{'tlps'}}) {
- ddebug("writeout: tlpname=$_ ", $self->{'tlps'}{$_}->name, "\n");
+ TeXLive::TLUtils::dddebug("writeout: tlpname=$_ ",
+ $self->{'tlps'}{$_}->name, "\n");
$self->{'tlps'}{$_}->writeout($fd);
print $fd "\n";
}