Is there someway to get the line number of whence a subroutine was called?
i.e.
#!perl
use subs qw(die);
sub die {
## do some special stuff here.
CORE::die @_;
}
die "not here" if 0;
die "I died here";
__END__
I want to see the line where die was called not line 6;
Nikola Janceski
Before God we are all equally wise - and equally foolish.
-- Albert Einstein (1879-1955)
----------------------------------------------------------------------------
--------------------
The views and opinions expressed in this email message are the sender's
own, and do not necessarily represent the views and opinions of Summit
Systems Inc.
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
