summaryrefslogtreecommitdiffstats
path: root/perl-install/install2.pm
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>1999-09-07 20:28:22 +0000
committerPascal Rigaux <pixel@mandriva.com>1999-09-07 20:28:22 +0000
commitfdc0e52cf8c9cfae833f45ec59d35d640a7ce6cc (patch)
treec490fb5b33d6b0a0816303cc7b7d4c1a88262da6 /perl-install/install2.pm
parentb1f24e0e6c2b5dd8870d1ee89bf7911fe871bfac (diff)
downloaddrakx-backup-do-not-use-fdc0e52cf8c9cfae833f45ec59d35d640a7ce6cc.tar
drakx-backup-do-not-use-fdc0e52cf8c9cfae833f45ec59d35d640a7ce6cc.tar.gz
drakx-backup-do-not-use-fdc0e52cf8c9cfae833f45ec59d35d640a7ce6cc.tar.bz2
drakx-backup-do-not-use-fdc0e52cf8c9cfae833f45ec59d35d640a7ce6cc.tar.xz
drakx-backup-do-not-use-fdc0e52cf8c9cfae833f45ec59d35d640a7ce6cc.zip
no_comment
Diffstat (limited to 'perl-install/install2.pm')
-rw-r--r--perl-install/install2.pm18
1 files changed, 10 insertions, 8 deletions
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;