[perl #79824] Don’t cow for sv_mortalcopy call from XS
authorFather Chrysostomos <sprout@cpan.org>
Fri, 5 Oct 2012 22:56:15 +0000 (15:56 -0700)
committerFather Chrysostomos <sprout@cpan.org>
Fri, 5 Oct 2012 22:56:15 +0000 (15:56 -0700)
commit108cb980748a75d7c8170cfaf25dbda9c56f6717
tree4bde757e8d422ad98e3df163e314cf0bdd82437f
parent9c1fdeb11a8ed6c719b1d6e13f6ab14d9e2863b1
[perl #79824] Don’t cow for sv_mortalcopy call from XS

XS code doing sv_mortalcopy(sv) will expect to get a true copy, and
not a COW ‘copy’.

So make sv_mortalcopy and wrapper around the new sv_mortalcopy_flags
that passes it SV_DO_COW_SVSETSV, which is defined as 0 for XS code.
embed.fnc
embed.h
ext/XS-APItest/APItest.xs
ext/XS-APItest/t/svsetsv.t
mathoms.c
proto.h
sv.c
sv.h