From fdc0e52cf8c9cfae833f45ec59d35d640a7ce6cc Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Tue, 7 Sep 1999 20:28:22 +0000
Subject: no_comment

---
 perl-install/install2.pm | 18 ++++++++++--------
 1 file changed, 10 insertions(+), 8 deletions(-)

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

diff --git a/perl-install/install2.pm b/perl-install/install2.pm
index 4f2ca84b2..3e51ad00d 100644
--- a/perl-install/install2.pm
+++ b/perl-install/install2.pm
@@ -22,6 +22,7 @@ use printer;
 use modules;
 use detect_devices;
 use smp;
+use modparm;
 use run_program;
 use install_steps_graphical;
 
@@ -279,12 +280,12 @@ $o = $::o = {
 #		   { mntpoint => "/usr",  size => 400 << 11, type => 0x83, growable => 1 }, 
 #	     ],
     shells => [ map { "/bin/$_" } qw(bash tcsh zsh ash ksh) ],
-    lang         => 'us',
+    lang         => 'en',
     isUpgrade    => 0,
     installClass => "beginner",
 
     timezone => {
-                   timezone => "Europe/Paris",
+#                   timezone => "Europe/Paris",
                    GMT      => 1,
                 },
     printer => { 
@@ -578,19 +579,20 @@ sub main {
 
     #the main cycle
     my $clicked = 0;
-    for ($o->{step} = $o->{steps}{first};; $o->{step} = getNextStep()) {
+    MAIN: for ($o->{step} = $o->{steps}{first};; $o->{step} = getNextStep()) {
 	$o->enteringStep($o->{step});
 	$o->{steps}{$o->{step}}{entered}++;
 	eval { 
 	    &{$install2::{$o->{step}}}($clicked, $o->{steps}{$o->{step}}{entered});
 	};
 	$clicked = 0;
-	$@ =~ /^setstep (.*)/ and $o->{step} = $1, $clicked = 1, redo;
-	$@ =~ /^theme_changed$/ and redo;
-	if ($@) {
-	    $o->errorInStep($@);
+	while ($@) {
+	    $@ =~ /^setstep (.*)/ and $o->{step} = $1, $clicked = 1, redo MAIN;
+	    $@ =~ /^theme_changed$/ and redo MAIN;
+	    eval { $o->errorInStep($@) };
+	    $@ and next;
 	    $o->{step} = $o->{steps}{$o->{step}}{onError};
-	    redo;
+	    redo MAIN;
 	}
 	$o->leavingStep($o->{step});
 	$o->{steps}{$o->{step}}{done} = 1;
-- 
cgit v1.2.1