diff options
| author | Thierry Vignaud <tv@mandriva.org> | 2008-09-23 21:26:42 +0000 |
|---|---|---|
| committer | Thierry Vignaud <tv@mandriva.org> | 2008-09-23 21:26:42 +0000 |
| commit | e708e02698ee9a8c0333c869a3160589e14de175 (patch) | |
| tree | 0330b8ea6362a946b9df4c5dc4c1332fe9803693 /perl-install/standalone.pm | |
| parent | 6c85915744f3a63f7f72cebdd7fe0addf38badf6 (diff) | |
| download | drakx-e708e02698ee9a8c0333c869a3160589e14de175.tar drakx-e708e02698ee9a8c0333c869a3160589e14de175.tar.gz drakx-e708e02698ee9a8c0333c869a3160589e14de175.tar.bz2 drakx-e708e02698ee9a8c0333c869a3160589e14de175.tar.xz drakx-e708e02698ee9a8c0333c869a3160589e14de175.zip | |
enable to disable it trough the DISABLE_DRAKBUG environment variable
Diffstat (limited to 'perl-install/standalone.pm')
| -rw-r--r-- | perl-install/standalone.pm | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/perl-install/standalone.pm b/perl-install/standalone.pm index 994ff7edc..d9dae154e 100644 --- a/perl-install/standalone.pm +++ b/perl-install/standalone.pm @@ -217,8 +217,10 @@ sub bug_handler { c::_exit(1); } -$SIG{SEGV} = sub { bug_handler(@_, 1) }; -$SIG{__DIE__} = \&bug_handler; +if (!$ENV{DISABLE_DRAKBUG}) { + $SIG{SEGV} = sub { bug_handler(@_, 1) }; + $SIG{__DIE__} = \&bug_handler; +} sub import() { ($standalone_name = $0) =~ s|.*/||; |