diff options
| author | Thierry Vignaud <tv@mandriva.org> | 2007-11-06 15:22:02 +0000 |
|---|---|---|
| committer | Thierry Vignaud <tv@mandriva.org> | 2007-11-06 15:22:02 +0000 |
| commit | cac00625d50a54c964a4baf8c5fe223c9a996b82 (patch) | |
| tree | 1c56d23b8f9b7e765ebf9939cab0912d4936c393 /perl-install/standalone.pm | |
| parent | d20e6aac3b8e38db725402a8c1a4423a9a541f6a (diff) | |
| download | drakx-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.pm | 3 |
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) }; |