http://qs321.pair.com?node_id=378967


in reply to Automatic stack traces for warns and dies

use Carp qw(confess cluck);
BEGIN {
    *CORE::GLOBAL::warn = \&cluck;
    *CORE::GLOBAL::die = \&confess;
}

[download]

(Note the compile time override; this is important.)

Makeshifts last the longest.

In Section Seekers of Perl Wisdom