Lines Matching defs:sv2
3295 SV *sv2 = sv_newmortal();
3296 sv_copypv_nomg(sv2,sv);
3297 sv = sv2;
3330 SV *sv2 = sv_newmortal();
3331 sv_copypv_nomg(sv2,sv);
3332 sv = sv2;
8085 Perl_sv_eq_flags(pTHX_ SV *sv1, SV *sv2, const U32 flags)
8100 if (sv1 == sv2 && flags & SV_GMAGIC
8103 sv1 = newSVpvn_flags(pv1, cur1, SVs_TEMP | SvUTF8(sv2));
8108 if (!sv2){
8113 pv2 = SvPV_flags_const(sv2, cur2, flags);
8115 if (cur1 && cur2 && SvUTF8(sv1) != SvUTF8(sv2) && !IN_BYTES) {
8123 /* sv2 is the UTF-8 one */
8150 flag. This function basically behaves like the Perl code C<$sv1 eq $sv2>.
8156 Perl_sv_streq_flags(pTHX_ SV *sv1, SV *sv2, const U32 flags)
8163 if(sv2)
8164 SvGETMAGIC(sv2);
8170 if(!sv2)
8171 sv2 = &PL_sv_undef;
8174 (SvAMAGIC(sv1) || SvAMAGIC(sv2))) {
8175 SV *ret = amagic_call(sv1, sv2, seq_amg, 0);
8180 return sv_eq_flags(sv1, sv2, 0);
8198 flag. This function basically behaves like the Perl code C<$sv1 == $sv2>.
8204 Perl_sv_numeq_flags(pTHX_ SV *sv1, SV *sv2, const U32 flags)
8211 if(sv2)
8212 SvGETMAGIC(sv2);
8218 if(!sv2)
8219 sv2 = &PL_sv_undef;
8222 (SvAMAGIC(sv1) || SvAMAGIC(sv2))) {
8223 SV *ret = amagic_call(sv1, sv2, eq_amg, 0);
8228 return do_ncmp(sv1, sv2) == 0;
8236 C<sv2>. Is UTF-8 and S<C<'use bytes'>> aware, handles get magic, and will
8243 C<sv2>. Is UTF-8 and S<C<'use bytes'>> aware and will coerce its args to strings
8251 Perl_sv_cmp(pTHX_ SV *const sv1, SV *const sv2)
8253 return sv_cmp_flags(sv1, sv2, SV_GMAGIC);
8257 Perl_sv_cmp_flags(pTHX_ SV *const sv1, SV *const sv2,
8272 if (!sv2) {
8277 pv2 = SvPV_flags_const(sv2, cur2, flags);
8279 if (cur1 && cur2 && SvUTF8(sv1) != SvUTF8(sv2) && !IN_BYTES) {
8479 Perl_sv_cmp_locale(pTHX_ SV *const sv1, SV *const sv2)
8481 return sv_cmp_locale_flags(sv1, sv2, SV_GMAGIC);
8485 Perl_sv_cmp_locale_flags(pTHX_ SV *const sv1, SV *const sv2,
8501 if (sv1 && sv2) {
8506 pv2 = sv_collxfrm_flags(sv2, &len2, flags);
8513 pv2 = sv2 ? sv_collxfrm_flags(sv2, &len2, flags) : (char *) NULL;
8546 return sv_cmp(sv1, sv2);