diff options
author | Thierry Vignaud <tv@mandriva.org> | 2008-02-04 16:08:42 +0000 |
---|---|---|
committer | Thierry Vignaud <tv@mandriva.org> | 2008-02-04 16:08:42 +0000 |
commit | 0d109467687d7bd311863a8e3f7af1617a71ab23 (patch) | |
tree | e4547317b3ece2f90261a4bfe63d688cd8c06354 /perl-install/standalone.pm | |
parent | 026fef19d738d8db71dd1c6a42f5d9446e1cdd1e (diff) | |
download | drakx-0d109467687d7bd311863a8e3f7af1617a71ab23.tar drakx-0d109467687d7bd311863a8e3f7af1617a71ab23.tar.gz drakx-0d109467687d7bd311863a8e3f7af1617a71ab23.tar.bz2 drakx-0d109467687d7bd311863a8e3f7af1617a71ab23.tar.xz drakx-0d109467687d7bd311863a8e3f7af1617a71ab23.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) }; |