From 4a3cae422f406881e1feb9919bf0b58d1e78a7b9 Mon Sep 17 00:00:00 2001 From: Rafael Garcia-Suarez Date: Wed, 23 Mar 2005 10:36:51 +0000 Subject: Fix detection of available space when copying rpms on disk (bug 14790) --- perl-install/install_steps_gtk.pm | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) (limited to 'perl-install/install_steps_gtk.pm') 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 -- cgit v1.2.1