diff options
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|.*/||; |