summaryrefslogtreecommitdiffstats
path: root/perl-install/bootloader.pm
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2007-11-26 11:56:34 +0000
committerPascal Rigaux <pixel@mandriva.com>2007-11-26 11:56:34 +0000
commit21faaaeedcf6554ae72e47ce58df2a680197dc1c (patch)
tree228e3b54766121097272c616cc8378fa7e930fd9 /perl-install/bootloader.pm
parent829e08798af0110f8a571acd73c219ad79f24666 (diff)
downloaddrakx-21faaaeedcf6554ae72e47ce58df2a680197dc1c.tar
drakx-21faaaeedcf6554ae72e47ce58df2a680197dc1c.tar.gz
drakx-21faaaeedcf6554ae72e47ce58df2a680197dc1c.tar.bz2
drakx-21faaaeedcf6554ae72e47ce58df2a680197dc1c.tar.xz
drakx-21faaaeedcf6554ae72e47ce58df2a680197dc1c.zip
- bootloader:
o when reading existing menu.lst, keep verbatim entries for which the device has no mount-point
Diffstat (limited to 'perl-install/bootloader.pm')
-rw-r--r--perl-install/bootloader.pm4
1 files changed, 2 insertions, 2 deletions
diff --git a/perl-install/bootloader.pm b/perl-install/bootloader.pm
index 13959c369..ba69f00e9 100644
--- a/perl-install/bootloader.pm
+++ b/perl-install/bootloader.pm
@@ -1495,8 +1495,8 @@ sub grub2dev {
sub grub2file {
my ($grub_file, $grub2dev, $fstab) = @_;
if (my ($device, $rel_file) = grub2dev_and_file($grub_file, $grub2dev)) {
- if (my $part = fs::get::device2part($device, $fstab)) {
- my $mntpoint = $part->{mntpoint} || '';
+ my $part = fs::get::device2part($device, $fstab);
+ if (my $mntpoint = $part && $part->{mntpoint}) {
($mntpoint eq '/' ? '' : $mntpoint) . '/' . $rel_file;
} else {
log::l("ERROR: unknown device $device (computed from $grub_file)");