From db1441f64fdaee094173bdf619c443fcad94b1a7 Mon Sep 17 00:00:00 2001 From: Karl Berry Date: Sun, 17 Jun 2007 22:19:45 +0000 Subject: comment tweaks git-svn-id: svn://tug.org/texlive/trunk@4454 c570f23f-e606-0410-a88d-b1316a301751 --- Master/tlpkg/TeXLive/TLUtils.pm | 13 ++++++------- 1 file changed, 6 insertions(+), 7 deletions(-) (limited to 'Master/tlpkg') diff --git a/Master/tlpkg/TeXLive/TLUtils.pm b/Master/tlpkg/TeXLive/TLUtils.pm index f07c4588ed5..533b9806fad 100644 --- a/Master/tlpkg/TeXLive/TLUtils.pm +++ b/Master/tlpkg/TeXLive/TLUtils.pm @@ -1,19 +1,18 @@ -# # TeXLive::TLUtils.pm # common functions for TeX Live Infrastructure +# # Copyright 2007 Norbert Preining -# -# based on Fabrice Popineau's FileUtils.pm -# # This file is licensed under the GNU General Public Licence version 2 # or any later version +# +# based on Fabrice Popineau's FileUtils.pm. package TeXLive::TLUtils; =pod =head1 NAME -TeXLive::TLUtils - utilities used in the TeX Live Infrastructure Modules +TeXLive::TLUtils - utilities used in the TeX Live infrastructure modules =head1 SYNOPSIS @@ -71,9 +70,9 @@ by the first argument. =cut sub push_uniq { + # can't we use $l as a reference, and then use my? later ... local (*l, @le) = @_; - my ($e); - foreach $e (@le) { + for my $e (@le) { if (! &member($e, @l)) { push @l, $e; } -- cgit v1.2.3