From cac00625d50a54c964a4baf8c5fe223c9a996b82 Mon Sep 17 00:00:00 2001 From: Thierry Vignaud 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/NEWS | 2 ++ perl-install/standalone.pm | 3 ++- 2 files changed, 4 insertions(+), 1 deletion(-) diff --git a/perl-install/NEWS b/perl-install/NEWS index e4f11901e..8f52cf322 100644 --- a/perl-install/NEWS +++ b/perl-install/NEWS @@ -1,3 +1,5 @@ +- drakbug: + o keep buggy process around so that we can run gdb on it (if perl segfaulted) - harddrake: detect storage and various controllers before anything else (so that storage devices get detected at first boot on live) 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