From 2db19d156087ccce3037b2bd2da1042280e17904 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Mon, 11 Nov 2002 13:40:09 +0000
Subject: - do not use "foreach $var (...) {...}" use "foreach my $var (...)
 {...}" instead   (only pb are functions called in {...} that could use $var,
 none found except in commands.pm) - various small syntax enhancements to
 please perl_checker

---
 perl-install/pkgs.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'perl-install/pkgs.pm')

diff --git a/perl-install/pkgs.pm b/perl-install/pkgs.pm
index 816858360..1f55bed41 100644
--- a/perl-install/pkgs.pm
+++ b/perl-install/pkgs.pm
@@ -843,7 +843,7 @@ sub installTransactionClosure {
 	    $l[0] >= $_->{start} and $medium = $_, last;
 	    #- ... but it could be necessary to find the first
 	    #- medium containing package of @l.
-	    foreach $id (@l) {
+	    foreach my $id (@l) {
 		$id >= $_->{start} && $id <= $_->{end} and $medium = $_, last;
 	    }
 	    $medium and last;
-- 
cgit v1.2.1