Подтвердить что ты не робот

Как получить трассировку в Perl?

Возможный дубликат:
Как я могу заставить backtrace стека для всех фатальных ошибок в Perl?

Одна из вещей, которые мне нравятся в Python, заключается в том, что когда script выходит из-за ошибки, он выплескивает трассировку. Мне интересно, есть ли способ заставить Perl сделать это?

4b9b3361

Ответ 1

Добавьте это в начало script:

use Carp 'verbose';
$SIG{ __DIE__ } = sub { Carp::confess( @_ ) };

Он создаст трассировку стека для всех фатальных ошибок.