summaryrefslogtreecommitdiffstats
path: root/perl-install/pkgs.pm
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>1999-09-14 23:43:25 +0000
committerPascal Rigaux <pixel@mandriva.com>1999-09-14 23:43:25 +0000
commit816611491e0184792a6d481faed41557bfefb707 (patch)
tree1e8972ad55f45ddd2e3e48c5c3ac628ccb5a2db9 /perl-install/pkgs.pm
parent0b53ba66063c183f5bd5587c89c125024002c62b (diff)
downloaddrakx-backup-do-not-use-816611491e0184792a6d481faed41557bfefb707.tar
drakx-backup-do-not-use-816611491e0184792a6d481faed41557bfefb707.tar.gz
drakx-backup-do-not-use-816611491e0184792a6d481faed41557bfefb707.tar.bz2
drakx-backup-do-not-use-816611491e0184792a6d481faed41557bfefb707.tar.xz
drakx-backup-do-not-use-816611491e0184792a6d481faed41557bfefb707.zip
no_comment
Diffstat (limited to 'perl-install/pkgs.pm')
-rw-r--r--perl-install/pkgs.pm5
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},