summaryrefslogtreecommitdiffstats
path: root/perl-install/install_steps_gtk.pm
diff options
context:
space:
mode:
authorRafael Garcia-Suarez <rgarciasuarez@mandriva.org>2005-03-23 10:36:51 +0000
committerRafael Garcia-Suarez <rgarciasuarez@mandriva.org>2005-03-23 10:36:51 +0000
commit4a3cae422f406881e1feb9919bf0b58d1e78a7b9 (patch)
treedcf4745f1f9192706e1343a555dc98c1470cc126 /perl-install/install_steps_gtk.pm
parentf94f410c737646739df9845a0944d38b4641e68e (diff)
downloaddrakx-4a3cae422f406881e1feb9919bf0b58d1e78a7b9.tar
drakx-4a3cae422f406881e1feb9919bf0b58d1e78a7b9.tar.gz
drakx-4a3cae422f406881e1feb9919bf0b58d1e78a7b9.tar.bz2
drakx-4a3cae422f406881e1feb9919bf0b58d1e78a7b9.tar.xz
drakx-4a3cae422f406881e1feb9919bf0b58d1e78a7b9.zip
Fix detection of available space when copying rpms on disk (bug 14790)
Diffstat (limited to 'perl-install/install_steps_gtk.pm')
-rw-r--r--perl-install/install_steps_gtk.pm7
1 files changed, 4 insertions, 3 deletions
diff --git a/perl-install/install_steps_gtk.pm b/perl-install/install_steps_gtk.pm
index 5596c3a83..78819ef5e 100644
--- a/perl-install/install_steps_gtk.pm
+++ b/perl-install/install_steps_gtk.pm
@@ -663,9 +663,10 @@ sub deselectFoundMedia {
my $ask_copy_rpms_on_disk = $o->{method} !~ /iso/i;
#- check available size for copying rpms from infos in hdlists file
if ($ask_copy_rpms_on_disk && $totalsize >= 0) {
- my (undef, $availvar) = install_any::getAvailableSpace_mounted('/var');
- $availvar /= 1024; #- Mo
- $ask_copy_rpms_on_disk = $totalsize > $availvar * 0.6;
+ my $availvar = install_any::getAvailableSpace_mounted("$::prefix/var");
+ $availvar /= 1024 * 1024; #- Mo
+ log::l("totalsize=$totalsize, avail on $::prefix/var=$availvar");
+ $ask_copy_rpms_on_disk = $totalsize < $availvar * 0.6;
}
if ($ask_copy_rpms_on_disk) {
#- don't be afraid, cleanup old RPMs if upgrade