summaryrefslogtreecommitdiff
path: root/Master/tlpkg/TeXLive/TLUtils.pm
diff options
context:
space:
mode:
Diffstat (limited to 'Master/tlpkg/TeXLive/TLUtils.pm')
-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;
}