From d9396fe9912a2ca64b89131e4354ccbca615467b Mon Sep 17 00:00:00 2001 From: Francois Pons Date: Mon, 31 Mar 2003 15:20:05 +0000 Subject: fixed regex for kernel options retrieved for restore bootloader entry. --- perl-install/bootloader.pm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/perl-install/bootloader.pm b/perl-install/bootloader.pm index a6da7eb07..f82dcc3c2 100644 --- a/perl-install/bootloader.pm +++ b/perl-install/bootloader.pm @@ -500,7 +500,7 @@ 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 "/tmp/image/boot/vmlinuz" && -e "/tmp/image/boot/all.rdz" and - my ($cmdline) = cat_("/tmp/image/boot/grub/menu.lst") =~ /kernel \S+\/boot\/vmlinuz (.*)$/) { + my ($cmdline) = cat_("/tmp/image/boot/grub/menu.lst") =~ /kernel \S+\/boot\/vmlinuz (.*)$/m) { log::l("adding a restore bootloader entry on $hd_install_path"); add_entry($bootloader, { type => 'image', -- cgit v1.2.1