From cac00625d50a54c964a4baf8c5fe223c9a996b82 Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tv@mandriva.org>
Date: Tue, 6 Nov 2007 15:22:02 +0000
Subject: keep buggy process around so that we can run gdb on it (if perl
 segfaulted)

---
 perl-install/standalone.pm | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

(limited to 'perl-install/standalone.pm')

diff --git a/perl-install/standalone.pm b/perl-install/standalone.pm
index 34b283979..42f73744f 100644
--- a/perl-install/standalone.pm
+++ b/perl-install/standalone.pm
@@ -213,7 +213,8 @@ sub bug_handler {
     	exit(1);
     }
     $progname =~ s|.*/||;
-    exec('drakbug',  if_($error, '--error', $error), '--incident', $progname,);
+    system('drakbug',  if_($error, '--error', $error), '--incident', $progname);
+    c::exit(1);
 }
 
 $SIG{SEGV} = sub { bug_handler(@_, 1) };
-- 
cgit v1.2.1