summaryrefslogtreecommitdiffstats
path: root/perl-install/pkgs.pm
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>1999-11-18 01:52:09 +0000
committerPascal Rigaux <pixel@mandriva.com>1999-11-18 01:52:09 +0000
commit2d6f40c73b6ec610c43f7073bd2e12b0790387e2 (patch)
tree531cc78c0d37a19e67af10483cc6014ab9bb8fc8 /perl-install/pkgs.pm
parent38dea3d2412ecdbe2988f58b7ce7a905aff5fb10 (diff)
downloaddrakx-backup-do-not-use-2d6f40c73b6ec610c43f7073bd2e12b0790387e2.tar
drakx-backup-do-not-use-2d6f40c73b6ec610c43f7073bd2e12b0790387e2.tar.gz
drakx-backup-do-not-use-2d6f40c73b6ec610c43f7073bd2e12b0790387e2.tar.bz2
drakx-backup-do-not-use-2d6f40c73b6ec610c43f7073bd2e12b0790387e2.tar.xz
drakx-backup-do-not-use-2d6f40c73b6ec610c43f7073bd2e12b0790387e2.zip
no_comment
Diffstat (limited to 'perl-install/pkgs.pm')
-rw-r--r--perl-install/pkgs.pm3
1 files changed, 1 insertions, 2 deletions
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};
}