This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Prevent __FILE__ corruption when ${"_<..."} is modified
authorFather Chrysostomos <sprout@cpan.org>
Mon, 5 Aug 2013 06:52:20 +0000 (23:52 -0700)
committerFather Chrysostomos <sprout@cpan.org>
Mon, 5 Aug 2013 09:23:32 +0000 (02:23 -0700)
commit1311cfc0a7b1bfcfd292948a7d88f0536e2e1c6e
treefe9d317395e79df6ab9877f3cd8e8e66aa5ab3f8
parentc82ecf346a8512f22f25188e450d92938c245421
Prevent __FILE__ corruption when ${"_<..."} is modified

This fixes a longstanding bug under non-threaded builds that was
extended to threaded builds by the previous commit.

Modifying the SV slot of the file gv can cause CopFILE to violate
memory discipline, giving random strings.

Since the GV is named after the file, too, and since its name can-
not be changed from Perl space, use that for CopFILE instead.
cop.h
t/comp/parser.t