summaryrefslogtreecommitdiffstats
path: root/perl-install/install2.pm
diff options
context:
space:
mode:
authorFrancois Pons <fpons@mandriva.com>1999-10-12 16:37:16 +0000
committerFrancois Pons <fpons@mandriva.com>1999-10-12 16:37:16 +0000
commit580f495ce8cc4e4039c5aa4179564053b2d401c5 (patch)
tree5597ffe68b541c29cbaeb546206b9df2083d4878 /perl-install/install2.pm
parent11f99f43f9b01550fc98dd79283ededfe1de448e (diff)
downloaddrakx-580f495ce8cc4e4039c5aa4179564053b2d401c5.tar
drakx-580f495ce8cc4e4039c5aa4179564053b2d401c5.tar.gz
drakx-580f495ce8cc4e4039c5aa4179564053b2d401c5.tar.bz2
drakx-580f495ce8cc4e4039c5aa4179564053b2d401c5.tar.xz
drakx-580f495ce8cc4e4039c5aa4179564053b2d401c5.zip
*** empty log message ***
Diffstat (limited to 'perl-install/install2.pm')
-rw-r--r--perl-install/install2.pm6
1 files changed, 4 insertions, 2 deletions
diff --git a/perl-install/install2.pm b/perl-install/install2.pm
index 9547d08c3..0639fd6a1 100644
--- a/perl-install/install2.pm
+++ b/perl-install/install2.pm
@@ -507,8 +507,10 @@ sub main {
$o->kill_action;
/^setstep (.*)/ and $o->{step} = $1, $clicked = 1, redo MAIN;
/^theme_changed$/ and redo MAIN;
- eval { $o->errorInStep($_) } unless /^already displayed/;
- $@ and next;
+ unless (/^already displayed/) {
+ eval { $o->errorInStep($_) };
+ $@ and next;
+ }
$o->{step} = $o->{steps}{$o->{step}}{onError};
next MAIN unless $o->{steps}{$o->{step}}{reachable}; #- sanity check: avoid a step not reachable on error.
redo MAIN;