Attachment 3684 Details for Bug 8717 – potential fix + debug

[patch] potential fix + debug

8717.diff (text/plain), 807 bytes, created by Thierry Vignaud on 2013-04-02 21:08:31 CEST

(hide)

Description:

Filename:

MIME Type:

Creator: Thierry Vignaud

Created: 2013-04-02 21:08:31 CEST

Size: 807 bytes

patch

obsolete

diff --git a/perl-install/standalone/bootloader-config b/perl-install/standalone/bootloader-config
index f59a760..768aa61 100755
--- a/perl-install/standalone/bootloader-config
+++ b/perl-install/standalone/bootloader-config
@@ -154,7 +154,11 @@ sub add_kernel() {
 	return;
     }
 
-    my $root_part = fs::get::root([ fs::get::fstab($all_hds) ]) or die "cannot find root partition\n";
+    my $fstab = [ fs::get::fstab($all_hds) ];
+    my $root_part = fs::get::root($fstab);
+    use Data::Dumper;
+    warn Data::Dumper->Dump([ $all_hds, [ fs::get::fstab($all_hds) ], $root_part ], [ qw(all_hds fstab root_part) ]);
+    is_empty_hash_ref($root_part) or die "cannot find root partition\n";
     my %opts = (
 		root => fs::wild_device::from_part('', $root_part), 
 		initrd_options => $initrd_options,

Actions: View | Diff

Attachments on bug 8717: 3684 | 3685 | 3686 | 3688 | 3689 | 3691