From f7cdf52d7c9c1104f77a11623dc536695473f26b Mon Sep 17 00:00:00 2001
From: Francois Pons <fpons@mandriva.com>
Date: Mon, 2 Sep 2002 12:19:11 +0000
Subject: fixed typo.

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

diff --git a/perl-install/install_any.pm b/perl-install/install_any.pm
index 38327f8bf..537f0d536 100644
--- a/perl-install/install_any.pm
+++ b/perl-install/install_any.pm
@@ -598,7 +598,7 @@ sub install_urpmi {
 	#- build list file using internal data, synthesis file should exists.
 	#- WARNING this method of build only works because synthesis (or hdlist)
 	#-         has been read.
-	foreach my $pkg (@{$packages->{depslist}}[$_->{start} .. $_->{end}]) {
+	foreach (@{$packages->{depslist}}[$_->{start} .. $_->{end}]) {
 	    print LIST "$dir/".$_->filename."\n";
 	}
 	close LIST;
-- 
cgit v1.2.1