From 9dba0e05623a219d105b8074e59a1e917d0d4861 Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Mon, 11 Nov 2002 13:23:45 +0000 Subject: replace availableMemory with availableMemory() --- perl-install/install2.pm | 2 +- perl-install/install_steps_interactive.pm | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) (limited to 'perl-install') diff --git a/perl-install/install2.pm b/perl-install/install2.pm index af3a40040..f9bebe686 100644 --- a/perl-install/install2.pm +++ b/perl-install/install2.pm @@ -494,7 +494,7 @@ sub main { } $o->{interactive} ||= 'gtk' if !$::auto_install; - if ($o->{interactive} eq "gtk" && availableMemory < 22 * 1024) { + if ($o->{interactive} eq "gtk" && availableMemory() < 22 * 1024) { log::l("switching to newt install cuz not enough memory"); $o->{interactive} = "newt"; } diff --git a/perl-install/install_steps_interactive.pm b/perl-install/install_steps_interactive.pm index 798d6fcf5..7374e8592 100644 --- a/perl-install/install_steps_interactive.pm +++ b/perl-install/install_steps_interactive.pm @@ -469,7 +469,7 @@ sub formatMountPartitions { $@ =~ /fsck failed on (\S+)/ or return; $o->ask_yesorno('', N("Failed to check filesystem %s. Do you want to repair the errors? (beware, you can loose data)", $1), 1); }; - die N("Not enough swap space to fulfill installation, please add some") if availableMemory < 40 * 1024; + die N("Not enough swap space to fulfill installation, please add some") if availableMemory() < 40 * 1024; } #------------------------------------------------------------------------------ -- cgit v1.2.1