diff options
| author | Rafael Garcia-Suarez <rgarciasuarez@mandriva.org> | 2005-03-23 10:36:51 +0000 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@mandriva.org> | 2005-03-23 10:36:51 +0000 |
| commit | 4a3cae422f406881e1feb9919bf0b58d1e78a7b9 (patch) | |
| tree | dcf4745f1f9192706e1343a555dc98c1470cc126 /perl-install | |
| parent | f94f410c737646739df9845a0944d38b4641e68e (diff) | |
| download | drakx-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')
| -rw-r--r-- | perl-install/install_steps_gtk.pm | 7 |
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 |