summaryrefslogtreecommitdiff
path: root/Master/tlpkg/TeXLive
diff options
context:
space:
mode:
authorKarl Berry <karl@freefriends.org>2010-07-15 00:00:52 +0000
committerKarl Berry <karl@freefriends.org>2010-07-15 00:00:52 +0000
commita23e78bca9fc69705d756c137a119b9ead87731e (patch)
tree2348d2c766795f86158d23e9dd1f0730afd0ded9 /Master/tlpkg/TeXLive
parent38d9e7e911efdf742c3f41954bf8c737179263a2 (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.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));
}
}
}