From a23e78bca9fc69705d756c137a119b9ead87731e Mon Sep 17 00:00:00 2001 From: Karl Berry Date: Thu, 15 Jul 2010 00:00:52 +0000 Subject: avoid -warnings about variables only used once git-svn-id: svn://tug.org/texlive/trunk@19462 c570f23f-e606-0410-a88d-b1316a301751 --- Master/tlpkg/TeXLive/TLUtils.pm | 15 +++++++++++++-- 1 file changed, 13 insertions(+), 2 deletions(-) (limited to 'Master/tlpkg/TeXLive') 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 -- 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)); } } } -- cgit v1.2.3