summaryrefslogtreecommitdiffstats
path: root/perl
diff options
context:
space:
mode:
authorMatthew Booth <mbooth@redhat.com>2009-08-19 11:42:46 +0100
committerMatthew Booth <mbooth@redhat.com>2009-08-19 12:53:16 +0100
commit256c084a2373b77950c88d82f666357e06306e31 (patch)
treee9154a521849fecea4521c8a4e842aced84a06c6 /perl
parent6aa44937d5ee9accb0025cd8536c5adafd24ef23 (diff)
downloadlibguestfs-256c084a2373b77950c88d82f666357e06306e31.tar.gz
libguestfs-256c084a2373b77950c88d82f666357e06306e31.tar.xz
libguestfs-256c084a2373b77950c88d82f666357e06306e31.zip
Add boot/grub_fs to output
If present, this gives the mount point of the filesystem which contains grub. All entries in grub.conf will be relative to this filesystem.
Diffstat (limited to 'perl')
-rw-r--r--perl/lib/Sys/Guestfs/Lib.pm8
1 files changed, 7 insertions, 1 deletions
diff --git a/perl/lib/Sys/Guestfs/Lib.pm b/perl/lib/Sys/Guestfs/Lib.pm
index 89f2aa67..1f84bc62 100644
--- a/perl/lib/Sys/Guestfs/Lib.pm
+++ b/perl/lib/Sys/Guestfs/Lib.pm
@@ -1330,7 +1330,11 @@ The kernel command line.
=item default
-The index of the default configuration in the configs array
+The index of the default configuration in the configs array.
+
+=item grub_fs
+
+The path of the filesystem containing the grub partition.
=back
@@ -1506,6 +1510,7 @@ sub _check_for_kernels
# ->{cmdline} = "ro root=/dev/mapper/vg_mbooth-lv_root rhgb"
# ->{initrd} = \initrd
# ->{default} = \config
+ # ->{grub_fs} = "/boot"
# Initialise augeas
$g->aug_init("/", 16);
@@ -1576,6 +1581,7 @@ sub _check_for_kernels
# Create the top level boot entry
my %boot;
$boot{configs} = \@configs;
+ $boot{grub_fs} = $grub;
# Add the default configuration
eval {