From 85130b92ccd6a286f5c23bcd4fc90ea29b3b3649 Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tv@mandriva.org>
Date: Thu, 2 Aug 2007 06:18:05 +0000
Subject: (bug_handler) prevent looping if drakbug crashes

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

diff --git a/perl-install/NEWS b/perl-install/NEWS
index 2a888756c..7267f88e8 100644
--- a/perl-install/NEWS
+++ b/perl-install/NEWS
@@ -1,5 +1,6 @@
 - drakbug:
   o do not fire on exceptions in eval { }
+  o do not loop if drakbug crashes
   o put full backtrace on bugzilla, not only last call point
 
 Version 10.4.152 - 01 August 2007, by Thierry Vignaud
diff --git a/perl-install/standalone.pm b/perl-install/standalone.pm
index 32255665e..721a22bd0 100644
--- a/perl-install/standalone.pm
+++ b/perl-install/standalone.pm
@@ -189,6 +189,10 @@ sub bug_handler {
     return if $error && $^S;
     $error .= common::backtrace() if $error;
     my $progname = $0;
+    if ($progname =~ /drakbug/) {
+    	warn $error;
+    	exit(1);
+    }
     $progname =~ s|.*/||;
     exec('drakbug',  if_($error, '--error', $error), '--incident', $progname,);
 }
-- 
cgit v1.2.1