diff options
Diffstat (limited to 'Master')
-rw-r--r-- | Master/tlpkg/TeXLive/TLUtils.pm | 15 |
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)); } } } |