summaryrefslogtreecommitdiffstats
path: root/perl-install/install_any.pm
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>1999-10-13 11:41:53 +0000
committerPascal Rigaux <pixel@mandriva.com>1999-10-13 11:41:53 +0000
commit3edbeac41e23ee13ff3e0c9c815c4ab93b279fd2 (patch)
treefbc6900f93a37f93731d0be67b95fa5a83928564 /perl-install/install_any.pm
parent5521ae98ce86e69166df6f72126bf0c300c069f4 (diff)
downloaddrakx-backup-do-not-use-3edbeac41e23ee13ff3e0c9c815c4ab93b279fd2.tar
drakx-backup-do-not-use-3edbeac41e23ee13ff3e0c9c815c4ab93b279fd2.tar.gz
drakx-backup-do-not-use-3edbeac41e23ee13ff3e0c9c815c4ab93b279fd2.tar.bz2
drakx-backup-do-not-use-3edbeac41e23ee13ff3e0c9c815c4ab93b279fd2.tar.xz
drakx-backup-do-not-use-3edbeac41e23ee13ff3e0c9c815c4ab93b279fd2.zip
no_comment
Diffstat (limited to 'perl-install/install_any.pm')
-rw-r--r--perl-install/install_any.pm9
1 files changed, 4 insertions, 5 deletions
diff --git a/perl-install/install_any.pm b/perl-install/install_any.pm
index e46428db5..96cd86be6 100644
--- a/perl-install/install_any.pm
+++ b/perl-install/install_any.pm
@@ -98,8 +98,8 @@ sub shells($) {
sub getAvailableSpace {
my ($o) = @_;
- do { $_->{mntpoint} eq '/usr' and return $_->{size} * 512 } foreach @{$o->{fstab}};
- do { $_->{mntpoint} eq '/' and return $_->{size} * 512 } foreach @{$o->{fstab}};
+ do { $_->{mntpoint} eq '/usr' and return int($_->{size} * 512 / 1.03) } foreach @{$o->{fstab}};
+ do { $_->{mntpoint} eq '/' and return int($_->{size} * 512 / 1.03) } foreach @{$o->{fstab}};
if ($::testing) {
log::l("taking 200MB for testing");
@@ -120,8 +120,8 @@ sub setPackages($$) {
pkgs::getDeps($o->{packages});
- $o->{compss} = pkgs::readCompss($o->{packages});
- $o->{compssListLevels} = pkgs::readCompssList($o->{packages}, $o->{compss});
+ my $c; ($o->{compss}, $c) = pkgs::readCompss($o->{packages});
+ $o->{compssListLevels} = pkgs::readCompssList($o->{packages}, $c);
$o->{compssListLevels} ||= $install_classes;
push @{$o->{base}}, "kernel-smp" if detect_devices::hasSMP();
push @{$o->{base}}, "kernel-pcmcia-cs" if $o->{pcmcia};
@@ -136,7 +136,6 @@ sub setPackages($$) {
} foreach @{$o->{base}};
}
- pkgs::setShowFromCompss($o->{compss}, $o->{installClass}, $o->{lang});
($o->{packages_}{ind}, $o->{packages_}{select_level}) = pkgs::setSelectedFromCompssList($o->{compssListLevels}, $o->{packages}, getAvailableSpace($o) * 0.7, $o->{installClass}, $o->{lang}, $o->{isUpgrade});
}