diff options
| author | Francois Pons <fpons@mandriva.com> | 1999-10-12 16:37:16 +0000 |
|---|---|---|
| committer | Francois Pons <fpons@mandriva.com> | 1999-10-12 16:37:16 +0000 |
| commit | 580f495ce8cc4e4039c5aa4179564053b2d401c5 (patch) | |
| tree | 5597ffe68b541c29cbaeb546206b9df2083d4878 /perl-install/install2.pm | |
| parent | 11f99f43f9b01550fc98dd79283ededfe1de448e (diff) | |
| download | drakx-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.pm | 6 |
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; |