diff options
Diffstat (limited to 'Master/tlpkg/TeXLive/TLUtils.pm')
-rw-r--r-- | Master/tlpkg/TeXLive/TLUtils.pm | 13 |
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; } |