keep grub "root" command with field name {grub_root}

(to avoid name conflict with {root} used for the root partition (think lilo))

this commit is needed by next commit

1 files changed, 8 insertions, 4 deletions

diff --git a/perl-install/bootloader.pm b/perl-install/bootloader.pm
index ba69f00e9..0e328c7b4 100644
--- a/perl-install/bootloader.pm
+++ b/perl-install/bootloader.pm
@@ -245,6 +245,11 @@ sub read_grub_menu_lst {
 	my ($keyword, $v) = split('[ \t=]+', $_, 2) or
 	  warn qq(unknown line in /boot/grub/menu.lst: "$_"\n), next;
 
+	if ($keyword eq 'root') {
+	    #- rename to avoid name conflict
+	    $keyword = 'grub_root';
+	}
+
         if ($keyword eq 'title') {
             push @{$b{entries}}, $e = { label => $v };
             $global = 0;
@@ -254,10 +259,9 @@ sub read_grub_menu_lst {
             if ($keyword eq 'kernel') {
                 $e->{type} = 'image';
 		$e->{kernel} = $v;
-            } elsif ($keyword eq 'root' || $keyword eq 'rootnoverify') {
+            } elsif ($keyword eq 'chainloader') {
                 $e->{type} = 'other';
-		$e->{grub_noverify} = 1 if $keyword eq 'rootnoverify';
-                $e->{kernel_or_dev} = grub2dev($v, $grub2dev);
+                $e->{kernel_or_dev} = grub2dev($e->{rootnoverify} || $e->{grub_root}, $grub2dev);
                 $e->{append} = "";
             } elsif ($keyword eq 'initrd') {
                 $e->{initrd} = grub2file($v, $grub2dev, $fstab);
@@ -1612,7 +1616,7 @@ sub write_grub {
 		    next;
 		}
 		push @conf, $title;
-		push @conf, join(' ', $entry->{grub_noverify} ? 'rootnoverify' : 'root', $dev);
+		push @conf, join(' ', $entry->{rootnoverify} ? 'rootnoverify' : 'root', $dev);
 
 		if ($entry->{table}) {
 		    if (my $hd = fs::get::device2part($entry->{table}, \@sorted_hds)) {