void Perl_sv_catsv_mg(pTHX_ SV *dsv, SV *ssv) { PERL_ARGS_ASSERT_SV_CATSV_MG; sv_catsv_flags(dsv,ssv,SV_GMAGIC|SV_SMAGIC); }
void Perl_sv_catsv(pTHX_ SV *dstr, SV *sstr) { PERL_ARGS_ASSERT_SV_CATSV; sv_catsv_flags(dstr, sstr, SV_GMAGIC); }
void Perl_sv_catsv(pTHX_ SV *dstr, register SV *sstr) { sv_catsv_flags(dstr, sstr, SV_GMAGIC); }