summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--perl-install/NEWS2
-rw-r--r--perl-install/standalone.pm3
2 files changed, 4 insertions, 1 deletions
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) };