see, calleruse strict; use warnings; &a; sub a{ print "a"; &b } sub b{ print "b"; &c } sub c{ print "c"; die "arrgh at\n" . cstack() } sub cstack { my $i=1; my $stack=""; while ( my $s = (caller($i))[3] ) { $stack .= "$s\n" ; $i++; } return $stack; }
In reply to Re: stack dump quest
by holli
in thread stack dump quest
by EchoAngel
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |