From 59c46a0e297c0de98785abff06a2afdd866a9545 Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tvignaud@mandriva.org>
Date: Wed, 20 Aug 2003 14:01:03 +0000
Subject: only complain if an error really happened

---
 perl-install/standalone/logdrake | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

(limited to 'perl-install/standalone/logdrake')

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)
-- 
cgit v1.2.1