From 0590a0066ed52ceb142762d39ab6600f0fd2cd5c Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tvignaud@mandriva.org>
Date: Fri, 27 Aug 2004 03:25:43 +0000
Subject: (lilo_choice) fix canceling first step

---
 perl-install/standalone/drakboot | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'perl-install/standalone')

diff --git a/perl-install/standalone/drakboot b/perl-install/standalone/drakboot
index a7e9f2f65..b4bdb4de1 100755
--- a/perl-install/standalone/drakboot
+++ b/perl-install/standalone/drakboot
@@ -229,7 +229,7 @@ $in->exit(0);
 sub lilo_choice() {
   ask:
     my $before = fs::fstab_to_string($all_hds);
-    any::setupBootloader($in, $bootloader, $all_hds, $fstab, $ENV{SECURE_LEVEL});
+    any::setupBootloader($in, $bootloader, $all_hds, $fstab, $ENV{SECURE_LEVEL}) or $in->exit;
     if ($before ne fs::fstab_to_string($all_hds)) {
 	#- for /tmp using tmpfs when "clean /tmp" is chosen
 	fs::write_fstab($all_hds);
-- 
cgit v1.2.1