From 9e14915c1405a7e14302557e3347cc26a7f793fa Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tv@mandriva.org>
Date: Thu, 2 Aug 2007 06:17:11 +0000
Subject: (bug_handler) do not fsck up exceptions in eval { }

---
 perl-install/NEWS          | 3 +++
 perl-install/standalone.pm | 1 +
 2 files changed, 4 insertions(+)

diff --git a/perl-install/NEWS b/perl-install/NEWS
index 78de7520f..c8fffb6a3 100644
--- a/perl-install/NEWS
+++ b/perl-install/NEWS
@@ -1,3 +1,6 @@
+- drakbug:
+  o do not fire on exceptions in eval { }
+
 Version 10.4.152 - 01 August 2007, by Thierry Vignaud
 
 - drakbug:
diff --git a/perl-install/standalone.pm b/perl-install/standalone.pm
index cbebe70c3..4de0474fb 100644
--- a/perl-install/standalone.pm
+++ b/perl-install/standalone.pm
@@ -186,6 +186,7 @@ our @drakx_modules = qw(Xconfig::card Xconfig::default Xconfig::main Xconfig::mo
 
 sub bug_handler {
     my ($error) = @_;
+    return if $error && $^S;
     my $progname = $0;
     $progname =~ s|.*/||;
     exec('drakbug',  if_($error, '--error', $error), '--incident', $progname,);
-- 
cgit v1.2.1