diff options
author | Karl Berry <karl@freefriends.org> | 2010-07-15 00:00:52 +0000 |
---|---|---|
committer | Karl Berry <karl@freefriends.org> | 2010-07-15 00:00:52 +0000 |
commit | a23e78bca9fc69705d756c137a119b9ead87731e (patch) | |
tree | 2348d2c766795f86158d23e9dd1f0730afd0ded9 /Master/tlpkg/TeXLive | |
parent | 38d9e7e911efdf742c3f41954bf8c737179263a2 (diff) |
avoid -warnings about variables only used once
git-svn-id: svn://tug.org/texlive/trunk@19462 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/tlpkg/TeXLive')
-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)); } } } |