diff options
author | Pascal Rigaux <pixel@mandriva.com> | 2000-05-05 07:33:30 +0000 |
---|---|---|
committer | Pascal Rigaux <pixel@mandriva.com> | 2000-05-05 07:33:30 +0000 |
commit | bbe401b766272753bd1d25942322fc3928132020 (patch) | |
tree | c5528626457d8514c6879fa536ab967999d19f64 /perl-install/install_steps.pm | |
parent | 4e096379cad750ecfdb7ddd78eeae899380a7696 (diff) | |
download | drakx-bbe401b766272753bd1d25942322fc3928132020.tar drakx-bbe401b766272753bd1d25942322fc3928132020.tar.gz drakx-bbe401b766272753bd1d25942322fc3928132020.tar.bz2 drakx-bbe401b766272753bd1d25942322fc3928132020.tar.xz drakx-bbe401b766272753bd1d25942322fc3928132020.zip |
no_comment
Diffstat (limited to 'perl-install/install_steps.pm')
-rw-r--r-- | perl-install/install_steps.pm | 9 |
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; |