This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
op.c:newCONSTSUB: Stop using CopFILESV for CvFILE
authorFather Chrysostomos <sprout@cpan.org>
Mon, 5 Aug 2013 09:14:39 +0000 (02:14 -0700)
committerFather Chrysostomos <sprout@cpan.org>
Mon, 5 Aug 2013 09:23:38 +0000 (02:23 -0700)
commit995b7ce2ef64356a230e10fc9f83f336c1c30d4d
tree495cc8d5f13469b9b171b502aec8e6af6e05cbe8
parent6b352265a398e560f0b2ef116ee6c25e120cd647
op.c:newCONSTSUB: Stop using CopFILESV for CvFILE

CopFILESV points to *{"_<filename"}, which can be modified
from perl space.  CopFILE points to the third character of
*{"_<filename"}{NAME}.

Ithreads were already using CopFILE.  Make non-threaded builds do the
same.  This makes things a little more robust.

CvFILE is not actually used anywhere as far as I can tell, so I cannot
easily test this.
op.c