diff options
| author | Thierry Vignaud <tvignaud@mandriva.org> | 2003-12-22 07:45:18 +0000 |
|---|---|---|
| committer | Thierry Vignaud <tvignaud@mandriva.org> | 2003-12-22 07:45:18 +0000 |
| commit | 0e86940334239cd104f90cfec3ecb3507a838b00 (patch) | |
| tree | 95d4b3cf7880d322f098580452492b738df38da9 /perl-install | |
| parent | cb6cb7f427a983adc90d95bc70d5be66699bb59e (diff) | |
| download | drakx-0e86940334239cd104f90cfec3ecb3507a838b00.tar drakx-0e86940334239cd104f90cfec3ecb3507a838b00.tar.gz drakx-0e86940334239cd104f90cfec3ecb3507a838b00.tar.bz2 drakx-0e86940334239cd104f90cfec3ecb3507a838b00.tar.xz drakx-0e86940334239cd104f90cfec3ecb3507a838b00.zip | |
(mail alert wizard) properly handle faillure
Diffstat (limited to 'perl-install')
| -rwxr-xr-x | perl-install/standalone/logdrake | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/perl-install/standalone/logdrake b/perl-install/standalone/logdrake index 911b9e991..8289ac8aa 100755 --- a/perl-install/standalone/logdrake +++ b/perl-install/standalone/logdrake @@ -191,12 +191,12 @@ gtkadd($my_win->{window}, clicked => sub { eval { alert_config() }; my $err = $@; - if ($err =~ /wizcancel/) { - $::Wizard_no_previous = 1; - $::Wizard_no_cancel = 1; - $::WizardWindow->destroy if defined $::WizardWindow; - undef $::WizardWindow; - } elsif ($err) { print qq(CRITICAL: "$err" =>\n) } + $::WizardWindow->destroy if defined $::WizardWindow; + undef $::WizardWindow; + if ($err && $err !~ /wizcancel/) { + err_dialog(N("Error"), N("The alert wizard had unexpectly failled:") + . "\n\n" . $err); + } })), gtksignal_connect(Gtk2::Button->new(N("Save")), clicked => \&save), gtksignal_connect(Gtk2::Button->new($::isEmbedded ? N("Cancel") : N("Quit")), clicked => \&quit) |