From cb44eccff1c9027ba26bd3a23a137ea6a083ae9d Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Fri, 3 Sep 1999 18:39:50 +0000
Subject: no_comment

---
 perl-install/install_any.pm | 18 +++++++++++++++---
 1 file changed, 15 insertions(+), 3 deletions(-)

(limited to 'perl-install/install_any.pm')

diff --git a/perl-install/install_any.pm b/perl-install/install_any.pm
index ed0b65fee..a1109f68e 100644
--- a/perl-install/install_any.pm
+++ b/perl-install/install_any.pm
@@ -81,6 +81,19 @@ sub shells($) {
     @l ? @l : "/bin/bash";
 }
 
+sub getAvailableSpace {
+    my ($o) = @_;
+
+    do { $_->{mntpoint} eq '/usr' and return $_->{size} << 9 } foreach @{$o->{fstab}};
+    do { $_->{mntpoint} eq '/'    and return $_->{size} << 9 } foreach @{$o->{fstab}};
+
+    if ($::testing) {
+	log::l("taking 200MB for testing");
+	return 200 << 20;
+    }
+    die "missing root partition";
+}
+
 sub setPackages {
     my ($o) = @_;
 
@@ -97,9 +110,8 @@ sub setPackages {
     $o->{packages}{$_}{base} = 1 foreach @{$o->{base}};
 
     pkgs::setShowFromCompss($o->{compss}, $o->{installClass}, $o->{lang});
-    #PIXEL
-    my $size = 100 << 20;
-    pkgs::setSelectedFromCompssList($o->{compssList}, $o->{packages},$size , $o->{installClass}, $o->{lang});
+
+    pkgs::setSelectedFromCompssList($o->{compssList}, $o->{packages}, getAvailableSpace($o) * 0.7, $o->{installClass}, $o->{lang});
 }
 
 sub addToBeDone(&$) {
-- 
cgit v1.2.1