From 2d6f40c73b6ec610c43f7073bd2e12b0790387e2 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Thu, 18 Nov 1999 01:52:09 +0000
Subject: no_comment

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

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

diff --git a/perl-install/pkgs.pm b/perl-install/pkgs.pm
index f25357a49..c4e41db87 100644
--- a/perl-install/pkgs.pm
+++ b/perl-install/pkgs.pm
@@ -51,10 +51,9 @@ sub select($$;$) {
 	my %l; @l{@{$p->{deps} || die "missing deps file"}} = ();
 	while (do { my %l = %l; while (($n, $v) = each %l) { last if $v != 1; } $n }) {
 	    $l{$n} = 1;
-	    my $i = Package($packages, $n);
+	    my $i = $packages->{$n};
 	    if (!$i && $n =~ /\|/) {
 		foreach (split '\|', $n) {
-		    print "SSSSSSSSSSSSS $_\n";
 		    $i = Package($packages, $_);
 		    last if $i && $i->{selected};
 		}
-- 
cgit v1.2.1