From a35dcdba3a280e758692fe896b00750672128d62 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Wed, 27 Oct 2004 07:48:13 +0000
Subject: modifying $e->{append} is useless since we override it with $append

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

diff --git a/perl-install/any.pm b/perl-install/any.pm
index 0982a5a1f..dfdadd3e0 100644
--- a/perl-install/any.pm
+++ b/perl-install/any.pm
@@ -359,7 +359,7 @@ sub setupBootloader__entries {
 	    unshift @l, { label => N("Label"), val => \$e->{label}, list => ['macos', 'macosx', 'darwin'] };
 	    if ($e->{type} eq "image") {
 		@l = ({ label => N("Label"), val => \$e->{label} },
-		$::expert ? @l[1..4] : (@l[1..2], { label => N("Append"), val => \$e->{append} }),
+		$::expert ? @l[1..4] : (@l[1..2], { label => N("Append"), val => \$append }),
 		if_($::expert, { label => N("Initrd-size"), val => \$e->{initrdsize}, list => [ '', '4096', '8192', '16384', '24576' ] }),
 		if_($::expert, $l[5]),
 		{ label => N("NoVideo"), val => \$e->{novideo}, type => 'bool' },
-- 
cgit v1.2.1