From a8d9723bcb77c8009fc02c4d4174bbbd552a3c4a Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Thu, 4 Sep 2008 12:44:59 +0000
Subject: modify_append: do not modify entries which are marked {keep_verbatim}
 since they will be written verbatim anyway

---
 perl-install/bootloader.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/perl-install/bootloader.pm b/perl-install/bootloader.pm
index ade21a222..49a68ffa5 100644
--- a/perl-install/bootloader.pm
+++ b/perl-install/bootloader.pm
@@ -755,7 +755,7 @@ sub pack_append {
 sub modify_append {
     my ($b, $f) = @_;
 
-    my @l = grep { $_->{type} eq 'image' && !($::isStandalone && $_->{label} eq 'failsafe') } @{$b->{entries}};
+    my @l = grep { $_->{type} eq 'image' && !$_->{keep_verbatim} && !($::isStandalone && $_->{label} eq 'failsafe') } @{$b->{entries}};
 
     foreach (\$b->{perImageAppend}, map { \$_->{append} } @l) {
 	my ($simple, $dict) = unpack_append($$_);
-- 
cgit v1.2.1