Make prototype call FETCH before checking CORE:: prefix
authorFather Chrysostomos <sprout@cpan.org>
Sat, 26 May 2012 13:00:01 +0000 (06:00 -0700)
committerFather Chrysostomos <sprout@cpan.org>
Thu, 7 Jun 2012 15:18:53 +0000 (08:18 -0700)
commit6954f42f948dcf1dba2014aa06dd5c33b7561992
treeae3709c7181f41b050a51cd1f510ab5b9556ac6e
parentbf3d870f8b8accd379ab520c1ff1daa10317d27d
Make prototype call FETCH before checking CORE:: prefix

$ perl5.16.0 -e '"CORE::length" =~ /(.*)/; warn prototype $1;'
Warning: something's wrong at -e line 1.
$ perl5.16.0 -e 'warn prototype "CORE::length"'
_ at -e line 1.

Since sv_2cv calls get-magic, the easiest solution is to copy the
argument if it is magical.
pp.c
t/comp/proto.t
t/echo3001 [new file with mode: 0644]
t/utf67682.pl [new file with mode: 0644]