From 677ff0ae23c66e8757b8670ba1f9c64f0c080a39 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Fri, 1 Jul 2005 03:14:35 +0000
Subject: allow restarting a failed auto_install without rebooting (a la blino)

---
 perl-install/install_steps_auto_install.pm | 7 ++++++-
 1 file changed, 6 insertions(+), 1 deletion(-)

(limited to 'perl-install/install_steps_auto_install.pm')

diff --git a/perl-install/install_steps_auto_install.pm b/perl-install/install_steps_auto_install.pm
index 0c09fc6ed..d30e9bc4a 100644
--- a/perl-install/install_steps_auto_install.pm
+++ b/perl-install/install_steps_auto_install.pm
@@ -105,7 +105,12 @@ sub errorInStep {
     print "$err\n\n";
     print "switch to console f2 for a shell\n";
     print "Press <Enter> to reboot\n";
-    <STDIN>;
+
+    my $answer = <STDIN>;
+    if ($answer =~ /restart/i) {
+	log::l("restarting install");
+	c::_exit(0x35);
+    }
     c::_exit(0);
 }
 
-- 
cgit v1.2.1