comment tweaks

git-svn-id: svn://tug.org/texlive/trunk@4454 c570f23f-e606-0410-a88d-b1316a301751

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;
 		}