diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 1999-11-18 01:52:09 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 1999-11-18 01:52:09 +0000 |
| commit | 2d6f40c73b6ec610c43f7073bd2e12b0790387e2 (patch) | |
| tree | 531cc78c0d37a19e67af10483cc6014ab9bb8fc8 /perl-install/pkgs.pm | |
| parent | 38dea3d2412ecdbe2988f58b7ce7a905aff5fb10 (diff) | |
| download | drakx-2d6f40c73b6ec610c43f7073bd2e12b0790387e2.tar drakx-2d6f40c73b6ec610c43f7073bd2e12b0790387e2.tar.gz drakx-2d6f40c73b6ec610c43f7073bd2e12b0790387e2.tar.bz2 drakx-2d6f40c73b6ec610c43f7073bd2e12b0790387e2.tar.xz drakx-2d6f40c73b6ec610c43f7073bd2e12b0790387e2.zip | |
no_comment
Diffstat (limited to 'perl-install/pkgs.pm')
| -rw-r--r-- | perl-install/pkgs.pm | 3 |
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}; } |