summaryrefslogtreecommitdiffstats
path: root/perl-install/install_steps_gtk.pm
diff options
context:
space:
mode:
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