summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorThierry Vignaud <tvignaud@mandriva.org>2003-08-20 14:01:03 +0000
committerThierry Vignaud <tvignaud@mandriva.org>2003-08-20 14:01:03 +0000
commit59c46a0e297c0de98785abff06a2afdd866a9545 (patch)
treeaf2beb84b0c4c6556259f6dcbf4c77e104099b58 /perl-install
parent7f0b99d72ad828077c789fbeeca3f886a3a18910 (diff)
downloaddrakx-59c46a0e297c0de98785abff06a2afdd866a9545.tar
drakx-59c46a0e297c0de98785abff06a2afdd866a9545.tar.gz
drakx-59c46a0e297c0de98785abff06a2afdd866a9545.tar.bz2
drakx-59c46a0e297c0de98785abff06a2afdd866a9545.tar.xz
drakx-59c46a0e297c0de98785abff06a2afdd866a9545.zip
only complain if an error really happened
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)