From 0d109467687d7bd311863a8e3f7af1617a71ab23 Mon Sep 17 00:00:00 2001 From: Thierry Vignaud Date: Mon, 4 Feb 2008 16:08:42 +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 488c24260..8a39d0e4f 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) - bootloader-config, diskdrake: o look for LVM PV on non partitioned disk before looking for DOS partition_table (esp. for lilo which puts the DOS magic) 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