summaryrefslogtreecommitdiff
path: root/Master
diff options
context:
space:
mode:
authorKarl Berry <karl@freefriends.org>2007-06-17 22:19:45 +0000
committerKarl Berry <karl@freefriends.org>2007-06-17 22:19:45 +0000
commitdb1441f64fdaee094173bdf619c443fcad94b1a7 (patch)
tree0eaf2d975d3db4a6f5569dcc2ecf0d11d8bf96ef /Master
parent34941e618f341b8c00a9cbf2e59053e118b3db3c (diff)
comment tweaks
git-svn-id: svn://tug.org/texlive/trunk@4454 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master')
-rw-r--r--Master/tlpkg/TeXLive/TLUtils.pm13
1 files changed, 6 insertions, 7 deletions
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;
}