Lines Matching refs:sstr
26 #define sv_setsv_flags(dstr, sstr, flags) \
28 if (((flags) & SV_NOSTEAL) && (sstr) && (SvFLAGS((SV *)(sstr)) & SVs_TEMP)) { \
29 SvTEMP_off((SV *)(sstr)); \
30 Perl_sv_setsv_flags(aTHX_ (dstr), (sstr), (flags) & ~SV_NOSTEAL); \
31 SvTEMP_on((SV *)(sstr)); \
33 Perl_sv_setsv_flags(aTHX_ (dstr), (sstr), (flags) & ~SV_NOSTEAL); \
38 (((flags) & SV_NOSTEAL) && (sstr) && (SvFLAGS((SV *)(sstr)) & SVs_TEMP)) ? ( \
39 SvTEMP_off((SV *)(sstr)), \
40 Perl_sv_setsv_flags(aTHX_ (dstr), (sstr), (flags) & ~SV_NOSTEAL), \
41 SvTEMP_on((SV *)(sstr)), \
44 Perl_sv_setsv_flags(aTHX_ (dstr), (sstr), (flags) & ~SV_NOSTEAL), \
52 __UNDEFINED__ sv_setsv_flags(dstr, sstr, flags) \
54 if (((flags) & SV_NOSTEAL) && (sstr) && (SvFLAGS((SV *)(sstr)) & SVs_TEMP)) { \
55 SvTEMP_off((SV *)(sstr)); \
56 if (!((flags) & SV_GMAGIC) && (sstr) && SvGMAGICAL((SV *)(sstr))) { \
57 SvGMAGICAL_off((SV *)(sstr)); \
58 sv_setsv((dstr), (sstr)); \
59 SvGMAGICAL_on((SV *)(sstr)); \
61 sv_setsv((dstr), (sstr)); \
63 SvTEMP_on((SV *)(sstr)); \
65 if (!((flags) & SV_GMAGIC) && (sstr) && SvGMAGICAL((SV *)(sstr))) { \
66 SvGMAGICAL_off((SV *)(sstr)); \
67 sv_setsv((dstr), (sstr)); \
68 SvGMAGICAL_on((SV *)(sstr)); \
70 sv_setsv((dstr), (sstr)); \
75 __UNDEFINED__ sv_setsv_flags(dstr, sstr, flags) \
77 (((flags) & SV_NOSTEAL) && (sstr) && (SvFLAGS((SV *)(sstr)) & SVs_TEMP)) ? ( \
78 SvTEMP_off((SV *)(sstr)), \
79 (!((flags) & SV_GMAGIC) && (sstr) && SvGMAGICAL((SV *)(sstr))) ? ( \
80 SvGMAGICAL_off((SV *)(sstr)), \
81 sv_setsv((dstr), (sstr)), \
82 SvGMAGICAL_on((SV *)(sstr)), \
85 sv_setsv((dstr), (sstr)), \
88 SvTEMP_on((SV *)(sstr)), \
91 (!((flags) & SV_GMAGIC) && (sstr) && SvGMAGICAL((SV *)(sstr))) ? ( \
92 SvGMAGICAL_off((SV *)(sstr)), \
93 sv_setsv((dstr), (sstr)), \
94 SvGMAGICAL_on((SV *)(sstr)), \
97 sv_setsv((dstr), (sstr)), \