summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2005-07-01 03:14:35 +0000
committerPascal Rigaux <pixel@mandriva.com>2005-07-01 03:14:35 +0000
commit677ff0ae23c66e8757b8670ba1f9c64f0c080a39 (patch)
tree3eeba8cf01d41d6f59bd3328b12f832af10ed817 /perl-install
parent225600e25087516a3e1b416f3e45a142c0759fbf (diff)
downloaddrakx-backup-do-not-use-677ff0ae23c66e8757b8670ba1f9c64f0c080a39.tar
drakx-backup-do-not-use-677ff0ae23c66e8757b8670ba1f9c64f0c080a39.tar.gz
drakx-backup-do-not-use-677ff0ae23c66e8757b8670ba1f9c64f0c080a39.tar.bz2
drakx-backup-do-not-use-677ff0ae23c66e8757b8670ba1f9c64f0c080a39.tar.xz
drakx-backup-do-not-use-677ff0ae23c66e8757b8670ba1f9c64f0c080a39.zip
allow restarting a failed auto_install without rebooting (a la blino)
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/install_steps_auto_install.pm7
1 files changed, 6 insertions, 1 deletions
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);
}