From c5f58bce3b98ecb048178115a64b98dd725fee38 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Tue, 22 Mar 2005 15:40:26 +0000
Subject: handle the return value of any::setupBootloader() (bugzilla #13641)

---
 perl-install/install_steps_interactive.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'perl-install')

diff --git a/perl-install/install_steps_interactive.pm b/perl-install/install_steps_interactive.pm
index 698889121..c0b1b2d98 100644
--- a/perl-install/install_steps_interactive.pm
+++ b/perl-install/install_steps_interactive.pm
@@ -1113,7 +1113,7 @@ sub summary {
 	    N("%s on %s", $o->{bootloader}{method}, $o->{bootloader}{boot});
 	},
 	clicked => sub { 
-	    any::setupBootloader($o, $o->{bootloader}, $o->{all_hds}, $o->{fstab}, $o->{security});
+	    any::setupBootloader($o, $o->{bootloader}, $o->{all_hds}, $o->{fstab}, $o->{security}) or return;
 	    any::installBootloader($o, $o->{bootloader}, $o->{all_hds});
 	},
     };
-- 
cgit v1.2.1