summaryrefslogtreecommitdiffstats
path: root/perl-install/bootloader.pm
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install/bootloader.pm')
-rw-r--r--perl-install/bootloader.pm8
1 files changed, 6 insertions, 2 deletions
diff --git a/perl-install/bootloader.pm b/perl-install/bootloader.pm
index 366223713..736ee60ec 100644
--- a/perl-install/bootloader.pm
+++ b/perl-install/bootloader.pm
@@ -189,7 +189,11 @@ sub add_append {
my ($b, $key, $val) = @_;
foreach (\$b->{perImageAppend}, map { \$_->{append} } @{$b->{entries}}) {
- $$_ =~ s/\b$key=\S*\s*//;
+ if ($key eq 'mem') {
+ $$_ =~ s/\bmem=(\d+[KkMm]?)(\s.*)?$/$2/;
+ } else {
+ $$_ =~ s/\b$key=\S*\s*//;
+ }
$$_ =~ s/\s*$/ $key=$val/ if $val;
log::l("add_append: $$_");
}
@@ -335,7 +339,7 @@ wait %d seconds for default boot.
}
}
- add2hash_($lilo, { memsize => $1 }) if cat_("/proc/cmdline") =~ /mem=(\S+)/;
+ add2hash_($lilo, { memsize => $1 }) if cat_("/proc/cmdline") =~ /\bmem=(\d+[KkMm]?)(?:\s.*)?$/;
if (my ($s, $port, $speed) = cat_("/proc/cmdline") =~ /console=(ttyS(\d),(\d+)\S*)/) {
log::l("serial console $s $port $speed");
add_append($lilo, 'console' => $s);