1 /* This code is compiled twice, once with -DPERL_CORE defined, once without */
9 # define SUFFIX notcore
13 CAT2(sv_setsv_cow_hashkey_, SUFFIX) () {
15 SV *source = newSVpvn_share("pie", 3, 0);
16 SV *destination = newSV(0);
19 if(!SvREADONLY(source) && !SvFAKE(source)) {
21 Perl_croak(aTHX_ "Creating a shared hash key scalar failed when "
22 STRINGIFY(SUFFIX) " got flags %"UVxf, (UV)SvFLAGS(source));
25 sv_setsv(destination, source);
27 result = SvREADONLY(destination) && SvFAKE(destination);
30 SvREFCNT_dec(destination);
38 * c-indentation-style: bsd
43 * ex: set ts=8 sts=4 sw=4 noet: