summaryrefslogtreecommitdiff
path: root/Master/tlpkg/TeXLive/TLUtils.pm
diff options
context:
space:
mode:
authorKarl Berry <karl@freefriends.org>2022-09-25 16:50:19 +0000
committerKarl Berry <karl@freefriends.org>2022-09-25 16:50:19 +0000
commit33ec7e294dd4a5f539b0be80d939e9dade1590bc (patch)
tree7a7b7304e12d8c9a1a48024e3d094636452a1b4d /Master/tlpkg/TeXLive/TLUtils.pm
parenta2b56b4380f28f01496f77e50c84069d296bb6d2 (diff)
tl-update-tlpdb (suredef): new fn, replacing equal strings.
(tlpobj_catalogue_equal): use it to avoid dumb undef value warnings when printing values. Also, show tlp[AB]->catalogue values. TLUtils.pm (debug, ddebug, dddebug): return immediately if verbosity < 1; this may avoid unnecessary warnings when the arguments contain undef (and is trivially faster). This was occasioned by a warning from the --catalogue-compare run: Use of uninitialized value $_[5] in join or string at tlpkg/bin/../TeXLive/TLUtils.pm line 3715. D:bibtexu: longdesc now: An enhanced, portable C version ... vs. compare db: With new packages, a tlp value in the old package may indeed be undef. releng.txt: unrelated doc updates. git-svn-id: svn://tug.org/texlive/trunk@64503 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/tlpkg/TeXLive/TLUtils.pm')
-rw-r--r--Master/tlpkg/TeXLive/TLUtils.pm9
1 files changed, 5 insertions, 4 deletions
diff --git a/Master/tlpkg/TeXLive/TLUtils.pm b/Master/tlpkg/TeXLive/TLUtils.pm
index 93f0d2123e1..342e4f34f95 100644
--- a/Master/tlpkg/TeXLive/TLUtils.pm
+++ b/Master/tlpkg/TeXLive/TLUtils.pm
@@ -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);