summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorThierry Vignaud <tvignaud@mandriva.org>2003-12-22 07:45:18 +0000
committerThierry Vignaud <tvignaud@mandriva.org>2003-12-22 07:45:18 +0000
commit0e86940334239cd104f90cfec3ecb3507a838b00 (patch)
tree95d4b3cf7880d322f098580452492b738df38da9 /perl-install
parentcb6cb7f427a983adc90d95bc70d5be66699bb59e (diff)
downloaddrakx-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-xperl-install/standalone/logdrake12
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)