From c92d9953347e3bdebc5243c67cf012a2f7a60fb6 Mon Sep 17 00:00:00 2001 From: Norbert Preining Date: Fri, 7 May 2021 03:01:25 +0000 Subject: CTAN sync 202105070301 --- systems/texlive/tlnet/tlpkg/TeXLive/TLPDB.pm | 12 +++++++----- 1 file changed, 7 insertions(+), 5 deletions(-) (limited to 'systems/texlive/tlnet/tlpkg/TeXLive/TLPDB.pm') diff --git a/systems/texlive/tlnet/tlpkg/TeXLive/TLPDB.pm b/systems/texlive/tlnet/tlpkg/TeXLive/TLPDB.pm index c299c8c2dd..8b4ffeae29 100644 --- a/systems/texlive/tlnet/tlpkg/TeXLive/TLPDB.pm +++ b/systems/texlive/tlnet/tlpkg/TeXLive/TLPDB.pm @@ -1,12 +1,12 @@ -# $Id: TLPDB.pm 55126 2020-05-13 17:27:10Z karl $ +# $Id: TLPDB.pm 59098 2021-05-06 20:21:11Z karl $ # 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. package TeXLive::TLPDB; -my $svnrev = '$Revision: 55126 $'; +my $svnrev = '$Revision: 59098 $'; my $_modulerevision = ($svnrev =~ m/: ([0-9]+) /) ? $1 : "unknown"; sub module_revision { return $_modulerevision; } @@ -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"; } -- cgit v1.2.3