An easy-to-use signal handler


Pathologically Eclectic Rubbish Lister
	PerlMonks

An easy-to-use signal handler

by Jeppe (Monk)

on Nov 12, 2002 at 16:20 UTC ( [id://212300]=note: print w/replies, xml )

Need Help??

in reply to How do I get a post mortem stack trace?

$SIG{__DIE__} = sub {
  my ( $path, $line, $subr );
  my $i = 0;
  while ( $subr = (caller($i++))[3] ) {
    return if $subr eq '(eval)';
  }
  warn "died at: ", join(' line ', (caller)[1,2]), "\n";
  $i = 1;
  while ( ($path, $line) = (caller($i++))[1,2] ) {
    warn "caller:  $path line $line\n";
  }
};
[download]

I am not sure if this runs on Win32.