diff options
| author | Father Chrysostomos <sprout@cpan.org> | 2013-08-31 17:47:23 -0700 |
|---|---|---|
| committer | Father Chrysostomos <sprout@cpan.org> | 2013-09-01 11:32:07 -0700 |
| commit | 25502127feba592f2312380b350122c445020707 (patch) | |
| tree | 114d7f6ac5b79b5922af4dded2493bc732952083 /cpan/HTTP-Tiny | |
| parent | ecadf9b7005812a5eb20b351ef9bcd042c7e3daf (diff) | |
| download | perl-25502127feba592f2312380b350122c445020707.tar.gz | |
[perl #115768] improve (caller)[2] line numbers
warn and die have special code (closest_cop) to find a nulled
nextstate op closest to the warn or die op, to get the line number
from it. This commit extends that capability to caller, so that
if (1) {
foo();
}
sub foo { warn +(caller)[2] }
shows the right line number.
Diffstat (limited to 'cpan/HTTP-Tiny')
0 files changed, 0 insertions, 0 deletions