summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install')
-rwxr-xr-xperl-install/standalone/logdrake6
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)