diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 1999-09-14 23:43:25 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 1999-09-14 23:43:25 +0000 |
| commit | 816611491e0184792a6d481faed41557bfefb707 (patch) | |
| tree | 1e8972ad55f45ddd2e3e48c5c3ac628ccb5a2db9 /perl-install/pkgs.pm | |
| parent | 0b53ba66063c183f5bd5587c89c125024002c62b (diff) | |
| download | drakx-816611491e0184792a6d481faed41557bfefb707.tar drakx-816611491e0184792a6d481faed41557bfefb707.tar.gz drakx-816611491e0184792a6d481faed41557bfefb707.tar.bz2 drakx-816611491e0184792a6d481faed41557bfefb707.tar.xz drakx-816611491e0184792a6d481faed41557bfefb707.zip | |
no_comment
Diffstat (limited to 'perl-install/pkgs.pm')
| -rw-r--r-- | perl-install/pkgs.pm | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/perl-install/pkgs.pm b/perl-install/pkgs.pm index c14b8ebc1..d5330809b 100644 --- a/perl-install/pkgs.pm +++ b/perl-install/pkgs.pm @@ -48,7 +48,6 @@ sub unselect($$;$) { $i->{selected} = 1; #- that way, its counter will be zero the first time set_add($set, @{$i->{provides} || []}); } - while (@$l) { my $n = shift @$l; my $i = Package($packages, $n); @@ -58,7 +57,7 @@ sub unselect($$;$) { push @$l, @{$i->{deps} || []} if !$size || ($size -= $i->{size}) > 0; } } - return if $size <= 0; + return if defined $size && $size <= 0; #- garbage collect for circular dependencies my $changed = 1; @@ -275,7 +274,7 @@ sub install { my ($total, $nb); foreach my $p (@$toInstall) { - getHeader($p) or next; + eval { getHeader($p) }; $@ and next; $p->{installed} = 1; $p->{file} ||= sprintf "%s-%s-%s.%s.rpm", $p->{name}, $p->{version}, $p->{release}, |