summaryrefslogtreecommitdiff
path: root/systems/texlive/tlnet/tlpkg/TeXLive/TLUtils.pm
diff options
context:
space:
mode:
Diffstat (limited to 'systems/texlive/tlnet/tlpkg/TeXLive/TLUtils.pm')
-rw-r--r--systems/texlive/tlnet/tlpkg/TeXLive/TLUtils.pm13
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);