summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--Master/tlpkg/TeXLive/TLUtils.pm15
1 files changed, 13 insertions, 2 deletions
diff --git a/Master/tlpkg/TeXLive/TLUtils.pm b/Master/tlpkg/TeXLive/TLUtils.pm
index a222be47d9e..3926fe5401a 100644
--- a/Master/tlpkg/TeXLive/TLUtils.pm
+++ b/Master/tlpkg/TeXLive/TLUtils.pm
@@ -102,6 +102,17 @@ C<TeXLive::TLUtils> -- utilities used in the TeX Live infrastructure
=cut
+# avoid -warnings.
+use vars qw(
+ $::LOGFILENAME @::LOGLINES
+ @::debug_hook @::ddebug_hook @::dddebug_hook @::info_hook @::warn_hook
+ @::install_packages_hook
+ $::machinereadable
+ $::no_execute_actions
+ $::regenerate_all_formats
+ $TeXLive::TLDownload::net_lib_avail
+);
+
BEGIN {
use Exporter ();
use vars qw(@ISA @EXPORT_OK @EXPORT);
@@ -2620,7 +2631,7 @@ sub parse_AddHyphen_line {
next;
}
# should not be reached at all
- $ret{"error"} = "Unknown language directive $e";
+ $ret{"error"} = "Unknown language directive $a";
return %ret;
}
# this default value couldn't be set earlier
@@ -2813,7 +2824,7 @@ sub _logit {
if (defined($::LOGFILE)) {
print $::LOGFILE @rest;
} else {
- push @::LOGLINES, join ("", @rest);
+ push (@::LOGLINES, join ("", @rest));
}
}
}