diff options
| author | Thierry Vignaud <tvignaud@mandriva.org> | 2003-08-20 14:01:03 +0000 |
|---|---|---|
| committer | Thierry Vignaud <tvignaud@mandriva.org> | 2003-08-20 14:01:03 +0000 |
| commit | 59c46a0e297c0de98785abff06a2afdd866a9545 (patch) | |
| tree | af2beb84b0c4c6556259f6dcbf4c77e104099b58 /perl-install/standalone | |
| parent | 7f0b99d72ad828077c789fbeeca3f886a3a18910 (diff) | |
| download | drakx-backup-do-not-use-59c46a0e297c0de98785abff06a2afdd866a9545.tar drakx-backup-do-not-use-59c46a0e297c0de98785abff06a2afdd866a9545.tar.gz drakx-backup-do-not-use-59c46a0e297c0de98785abff06a2afdd866a9545.tar.bz2 drakx-backup-do-not-use-59c46a0e297c0de98785abff06a2afdd866a9545.tar.xz drakx-backup-do-not-use-59c46a0e297c0de98785abff06a2afdd866a9545.zip | |
only complain if an error really happened
Diffstat (limited to 'perl-install/standalone')
| -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) |