diff options
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) |