http://www.perlmonks.org?node_id=575347


in reply to Re: Where was I called?
in thread Where was I called?

That's one thought, but it turns out there's a bug in the scheme.

while ( my $value = some_sub() ) { # line 50 my $next_value = some_sub(); # line 51 }

This is something I forgot about, but it's very, very irritating. The first time some_sub() is called, caller will correctly report that line 50 is the calling line and the second time some_sub() is called, it reports line 51. However, the second time through the while loop, the first some_sub() is reported as being on line 51! That totally blows my initial scheme.

Cheers,
Ovid

New address of my CGI Course.