From aa3fa5f3892f6dbecfe00e276de6afcf75c248ef Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Mon, 28 Jun 2004 02:30:27 +0000 Subject: after install, when modifying kernel parameters in all entries, skip the "failsafe" entry (bugzilla #10143) --- perl-install/bootloader.pm | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/perl-install/bootloader.pm b/perl-install/bootloader.pm index 2b076a969..deba97c6d 100644 --- a/perl-install/bootloader.pm +++ b/perl-install/bootloader.pm @@ -447,7 +447,9 @@ sub get_append { sub modify_append { my ($b, $f) = @_; - foreach (\$b->{perImageAppend}, map { \$_->{append} } grep { $_->{type} eq 'image' } @{$b->{entries}}) { + my @l = grep { $_->{type} eq 'image' && !($::isStandalone && $_->{label} eq 'failsafe') } @{$b->{entries}}; + + foreach (\$b->{perImageAppend}, map { \$_->{append} } @l) { my ($simple, $dict) = unpack_append($$_); $f->($simple, $dict); $$_ = pack_append($simple, $dict); -- cgit v1.2.1