From 0e86940334239cd104f90cfec3ecb3507a838b00 Mon Sep 17 00:00:00 2001 From: Thierry Vignaud Date: Mon, 22 Dec 2003 07:45:18 +0000 Subject: (mail alert wizard) properly handle faillure --- perl-install/standalone/logdrake | 12 ++++++------ 1 file changed, 6 insertions(+), 6 deletions(-) (limited to 'perl-install/standalone/logdrake') 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) -- cgit v1.2.1