summaryrefslogtreecommitdiffstats
path: root/perl-install/install_steps.pm
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2000-05-05 07:33:30 +0000
committerPascal Rigaux <pixel@mandriva.com>2000-05-05 07:33:30 +0000
commitbbe401b766272753bd1d25942322fc3928132020 (patch)
treec5528626457d8514c6879fa536ab967999d19f64 /perl-install/install_steps.pm
parent4e096379cad750ecfdb7ddd78eeae899380a7696 (diff)
downloaddrakx-backup-do-not-use-bbe401b766272753bd1d25942322fc3928132020.tar
drakx-backup-do-not-use-bbe401b766272753bd1d25942322fc3928132020.tar.gz
drakx-backup-do-not-use-bbe401b766272753bd1d25942322fc3928132020.tar.bz2
drakx-backup-do-not-use-bbe401b766272753bd1d25942322fc3928132020.tar.xz
drakx-backup-do-not-use-bbe401b766272753bd1d25942322fc3928132020.zip
no_comment
Diffstat (limited to 'perl-install/install_steps.pm')
-rw-r--r--perl-install/install_steps.pm9
1 files changed, 2 insertions, 7 deletions
diff --git a/perl-install/install_steps.pm b/perl-install/install_steps.pm
index 06b486091..503e30bf0 100644
--- a/perl-install/install_steps.pm
+++ b/perl-install/install_steps.pm
@@ -2,7 +2,7 @@ package install_steps;
use diagnostics;
use strict;
-use vars qw($minAvailableSize @filesToSaveForUpgrade);
+use vars qw(@filesToSaveForUpgrade);
#-######################################################################################
#- misc imports
@@ -24,11 +24,6 @@ use network;
use any;
use fs;
-#- make sure of this place to be available for installation, this could help a lot.
-#- currently doing a very small install use 36Mb of postinstall-rpm, but installing
-#- these packages may eat up to 90Mb (of course not all the server may be installed!).
-#- 50mb may be a good choice to avoid almost all problem of insuficient space left...
-$minAvailableSize = 50 * sqr(1024);
@filesToSaveForUpgrade = qw(
/etc/ld.so.conf /etc/fstab /etc/hosts /etc/conf.modules
);
@@ -231,7 +226,7 @@ sub choosePackages {
#- make sure we kept some space left for available else the system may
#- not be able to start (xfs at least).
- my $available = install_any::getAvailableSpace($o) - $minAvailableSize;
+ my $available = install_any::getAvailableSpace($o);
my $availableCorrected = pkgs::invCorrectSize($available / sqr(1024)) * sqr(1024);
$available < $availableCorrected or $available = $availableCorrected;