diff options
Diffstat (limited to 'perl-install')
| -rwxr-xr-x | perl-install/standalone/logdrake | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/perl-install/standalone/logdrake b/perl-install/standalone/logdrake index efcdeb8e8..e62254ae7 100755 --- a/perl-install/standalone/logdrake +++ b/perl-install/standalone/logdrake @@ -190,13 +190,13 @@ gtkadd($my_win->{window}, if_(!$::isFile, gtksignal_connect(new Gtk2::Button(N("Mail alert")), clicked => sub { eval { alert_config() }; - if ($@ =~ /wizcancel/) { + my $err = $@; + if ($err =~ /wizcancel/) { $::Wizard_no_previous = 1; $::Wizard_no_cancel = 1; $::WizardWindow->destroy if defined $::WizardWindow; undef $::WizardWindow; - } else { print "CRITICAL: \"$@\"\n" } - + } elsif ($err) { print "CRITICAL: \"$err\" =>\n" } })), gtksignal_connect(Gtk2::Button->new(N("Save")), clicked => \&save), gtksignal_connect(Gtk2::Button->new($::isEmbedded ? N("Cancel") : N("Quit")), clicked => \&quit) |