From 5777b884e4f8b480be63513ea3baa7ff09ba6f14 Mon Sep 17 00:00:00 2001 From: Francois Pons Date: Wed, 26 Mar 2003 15:57:40 +0000 Subject: fixed wrong usage of any::hdInstallPath which is mapped as /tmp/image during installation. --- perl-install/bootloader.pm | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/perl-install/bootloader.pm b/perl-install/bootloader.pm index 2331579d9..33708ed10 100644 --- a/perl-install/bootloader.pm +++ b/perl-install/bootloader.pm @@ -499,8 +499,8 @@ wait %d seconds for default boot. #- add a restore entry if installation is done from disk, in order to allow redoing it. if (my $hd_install_path = any::hdInstallPath()) { - if (-e "$hd_install_path/boot/vmlinuz" && -e "$hd_install_path/boot/all.rdz" and - my ($cmdline) = cat_("$hd_install_path/boot/menu.lst") =~ /kernel \S+\/boot\/vmlinuz (.*)$/) { + if (-e "/tmp/image/boot/vmlinuz" && -e "/tmp/image/boot/all.rdz" and + my ($cmdline) = cat_("/tmp/image/boot/menu.lst") =~ /kernel \S+\/boot\/vmlinuz (.*)$/) { log::l("adding a restore bootloader entry on $hd_install_path"); add_entry($bootloader, { type => 'image', @@ -510,7 +510,7 @@ wait %d seconds for default boot. append => $cmdline, }); } else { - log::l("no restore bootloader need to be used"); + log::l("no restore bootloader need to be used on $hd_install_path"); } } -- cgit v1.2.1