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 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) };