From 386a093b4929b6da4f15370b28e844618622384f Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Tue, 9 Jan 2001 12:43:49 +0000 Subject: (miscellaneous): accept xxxK memsize --- perl-install/install_steps_interactive.pm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'perl-install') diff --git a/perl-install/install_steps_interactive.pm b/perl-install/install_steps_interactive.pm index 73f738f69..58de5c5d1 100644 --- a/perl-install/install_steps_interactive.pm +++ b/perl-install/install_steps_interactive.pm @@ -971,7 +971,7 @@ sub miscellaneous { { label => _("Enable num lock at startup"), val => \$u->{numlock}, type => 'bool' }, ), ], complete => sub { - !$u->{memsize} || $u->{memsize} =~ s/^(\d+)M?$/$1M/i or $o->ask_warn('', _("Give the ram size in MB")), return 1; + !$u->{memsize} || $u->{memsize} =~ /K$/ || $u->{memsize} =~ s/^(\d+)M?$/$1M/i or $o->ask_warn('', _("Give the ram size in MB")), return 1; my %m = reverse %l; $ENV{SECURE_LEVEL} = $o->{security} = $m{$s}; $o->{useSupermount} && $o->{security} > 3 and $o->ask_warn('', _("Can't use supermount in high security level")), return 1; $o->{security} == 5 and $o->ask_okcancel('', -- cgit v1.2.1