This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Make eval "#line" account for ${"_<foo"} changes
authorFather Chrysostomos <sprout@cpan.org>
Mon, 5 Aug 2013 07:13:40 +0000 (00:13 -0700)
committerFather Chrysostomos <sprout@cpan.org>
Mon, 5 Aug 2013 09:23:33 +0000 (02:23 -0700)
commit3df32bda1653df4f5415262ece5bccf4e36fd2e3
tree0a33f985fd9851b3158d0cd06f7be2155e095e32
parent89720c60b1df65ae0ab0e5aab3d9ea23c8890c39
Make eval "#line" account for ${"_<foo"} changes

If a BEGIN block in the eval modifies the ${"_<foo"} scalar where
‘foo’ is the file name in the eval, then subsequent #line directives
that change the file name won’t cause the lines to be copied to
@{"_<newname"}.  (This copying usually happens under the debugger.)

Just use the name of the GV itself, rather than CopFILESV, since the
GV name cannot be changed from Perl space.
t/comp/retainedlines.t
toke.c