summaryrefslogtreecommitdiffstats
path: root/perl-install/common.pm
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2000-09-20 22:19:00 +0000
committerPascal Rigaux <pixel@mandriva.com>2000-09-20 22:19:00 +0000
commitcaa013bea3a978cddcba4dc9ffe0ee577dbcf7cb (patch)
tree0d7e6a264c06222497a4a1f36cfceb46016934fd /perl-install/common.pm
parent987e71cbb903383c39f4074a84b765e543b34fdd (diff)
downloaddrakx-caa013bea3a978cddcba4dc9ffe0ee577dbcf7cb.tar
drakx-caa013bea3a978cddcba4dc9ffe0ee577dbcf7cb.tar.gz
drakx-caa013bea3a978cddcba4dc9ffe0ee577dbcf7cb.tar.bz2
drakx-caa013bea3a978cddcba4dc9ffe0ee577dbcf7cb.tar.xz
drakx-caa013bea3a978cddcba4dc9ffe0ee577dbcf7cb.zip
no_comment
Diffstat (limited to 'perl-install/common.pm')
-rw-r--r--perl-install/common.pm2
1 files changed, 1 insertions, 1 deletions
diff --git a/perl-install/common.pm b/perl-install/common.pm
index ca86f0459..47cc2586f 100644
--- a/perl-install/common.pm
+++ b/perl-install/common.pm
@@ -564,7 +564,7 @@ sub typeFromMagic($@) {
}
sub availableMemory() { sum map { /(\d+)/ } grep { /^(MemTotal|SwapTotal):/ } cat_("/proc/meminfo"); }
-sub availableRamMB() { divide((stat("/proc/kcore"))[7], 1024 * 1024) + 1 }
+sub availableRamMB() { 4 * int ((stat("/proc/kcore"))[7] / 1024 / 1024 / 4 + 0.5) }
sub setVirtual($) {
my $vt = '';