diff options
author | Norbert Preining <norbert@preining.info> | 2022-09-26 03:03:51 +0000 |
---|---|---|
committer | Norbert Preining <norbert@preining.info> | 2022-09-26 03:03:51 +0000 |
commit | 3416c5679e9cfa1ebba2296ecf401319a9f1cfe6 (patch) | |
tree | f451ec530b29856ea00420cb41b85943ade67d10 /systems/texlive/tlnet/tlpkg/TeXLive | |
parent | ce8083552e0d948bf495e72d5c4d2680b505c90b (diff) |
CTAN sync 202209260303
Diffstat (limited to 'systems/texlive/tlnet/tlpkg/TeXLive')
-rw-r--r-- | systems/texlive/tlnet/tlpkg/TeXLive/TLUtils.pm | 13 |
1 files changed, 7 insertions, 6 deletions
diff --git a/systems/texlive/tlnet/tlpkg/TeXLive/TLUtils.pm b/systems/texlive/tlnet/tlpkg/TeXLive/TLUtils.pm index 1d8891dbbc..fc29e5c4e3 100644 --- a/systems/texlive/tlnet/tlpkg/TeXLive/TLUtils.pm +++ b/systems/texlive/tlnet/tlpkg/TeXLive/TLUtils.pm @@ -1,4 +1,4 @@ -# $Id: TLUtils.pm 63645 2022-06-18 22:33:14Z karl $ +# $Id: TLUtils.pm 64503 2022-09-25 16:50:19Z karl $ # TeXLive::TLUtils.pm - the inevitable utilities for TeX Live. # Copyright 2007-2022 Norbert Preining, Reinhard Kotucha # This file is licensed under the GNU General Public License version 2 @@ -8,7 +8,7 @@ use strict; use warnings; package TeXLive::TLUtils; -my $svnrev = '$Revision: 63645 $'; +my $svnrev = '$Revision: 64503 $'; my $_modulerevision = ($svnrev =~ m/: ([0-9]+) /) ? $1 : "unknown"; sub module_revision { return $_modulerevision; } @@ -146,10 +146,11 @@ BEGIN { @::ddebug_hook = @::ddebug_hook; @::dddebug_hook = @::dddebug_hook; @::info_hook = @::info_hook; + @::install_packages_hook = @::install_packages_hook; + @::installation_failed_packages = @::installation_failed_packages; @::warn_hook = @::warn_hook; $::checksum_method = $::checksum_method; $::gui_mode = $::gui_mode; - @::install_packages_hook = @::install_packages_hook; $::machinereadable = $::machinereadable; $::no_execute_actions = $::no_execute_actions; $::regenerate_all_formats = $::regenerate_all_formats; @@ -3712,8 +3713,8 @@ package. =cut sub debug { - my $str = "D:" . join("", @_); return if ($::opt_verbosity < 1); + my $str = "D:" . join("", @_); logit(\*STDERR, 1, $str); for my $i (@::debug_hook) { &{$i}($str); @@ -3733,8 +3734,8 @@ each package, in addition to the first level. =cut sub ddebug { - my $str = "DD:" . join("", @_); return if ($::opt_verbosity < 2); + my $str = "DD:" . join("", @_); logit(\*STDERR, 2, $str); for my $i (@::ddebug_hook) { &{$i}($str); @@ -3757,8 +3758,8 @@ debugging those parts of the code, it just gets in the way. =cut sub dddebug { - my $str = "DDD:" . join("", @_); return if ($::opt_verbosity < 3); + my $str = "DDD:" . join("", @_); logit(\*STDERR, 3, $str); for my $i (@::dddebug_hook) { &{$i}($str); |