summaryrefslogtreecommitdiffstats
path: root/perl-install/standalone.pm
diff options
context:
space:
mode:
authorThierry Vignaud <tv@mandriva.org>2007-11-06 15:22:02 +0000
committerThierry Vignaud <tv@mandriva.org>2007-11-06 15:22:02 +0000
commitcac00625d50a54c964a4baf8c5fe223c9a996b82 (patch)
tree1c56d23b8f9b7e765ebf9939cab0912d4936c393 /perl-install/standalone.pm
parentd20e6aac3b8e38db725402a8c1a4423a9a541f6a (diff)
downloaddrakx-cac00625d50a54c964a4baf8c5fe223c9a996b82.tar
drakx-cac00625d50a54c964a4baf8c5fe223c9a996b82.tar.gz
drakx-cac00625d50a54c964a4baf8c5fe223c9a996b82.tar.bz2
drakx-cac00625d50a54c964a4baf8c5fe223c9a996b82.tar.xz
drakx-cac00625d50a54c964a4baf8c5fe223c9a996b82.zip
keep buggy process around so that we can run gdb on it (if perl segfaulted)
Diffstat (limited to 'perl-install/standalone.pm')
-rw-r--r--perl-install/standalone.pm3
1 files changed, 2 insertions, 1 deletions
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) };