diff options
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}; } |