create read_grub_menu_lst() and read_grub_install_sh()

1 files changed, 23 insertions, 8 deletions

diff --git a/perl-install/bootloader.pm b/perl-install/bootloader.pm
index 07bcdd750..26e3d40c0 100644
--- a/perl-install/bootloader.pm
+++ b/perl-install/bootloader.pm
@@ -188,14 +188,35 @@ sub read {
 
 sub read_grub {
     my ($fstab) = @_;
+
+    my $grub2dev = read_grub_device_map();
+
+    my $bootloader = read_grub_menu_lst($fstab, $grub2dev) or return;
+
+    read_grub_install_sh($bootloader, $grub2dev);
+
+    $bootloader;
+}
+
+sub read_grub_install_sh {
+    my ($bootloader, $grub2dev) = @_;
+
+    #- matches either:
+    #-   setup (hd0)
+    #-   install (hd0,0)/boot/grub/stage1 d (hd0) (hd0,0)/boot/grub/stage2 p (hd0,0)/boot/grub/menu.lst
+    if (cat_("$::prefix/boot/grub/install.sh") =~ /^(?:setup.*|install\s.*\sd)\s+(\(.*?\))/m) {
+	$bootloader->{boot} = grub2dev($1, $grub2dev);
+    }    
+}
+
+sub read_grub_menu_lst {
+    my ($fstab, $grub2dev) = @_;
     my $global = 1;
     my ($e, %b);
 
     my $menu_lst_file = "$::prefix/boot/grub/menu.lst";
     -e $menu_lst_file or return;
 
-    my $grub2dev = read_grub_device_map();
-
     foreach (cat_($menu_lst_file)) {
         chomp;
 	s/^\s*//; s/\s*$//;
@@ -230,12 +251,6 @@ sub read_grub {
 	    }
         }
     }
-    #- matches either:
-    #-   setup (hd0)
-    #-   install (hd0,0)/boot/grub/stage1 d (hd0) (hd0,0)/boot/grub/stage2 p (hd0,0)/boot/grub/menu.lst
-    if (cat_("$::prefix/boot/grub/install.sh") =~ /^(?:setup.*|install\s.*\sd)\s+(\(.*?\))/m) {
-	$b{boot} = grub2dev($1, $grub2dev);
-    }
 
     #- sanitize
     foreach (@{$b{entries}}) {