usr.bin/perl/sv.c

3233         SV *sv2 = sv_newmortal();
3234         sv_copypv_nomg(sv2,sv);
3235         sv = sv2;
3268         SV *sv2 = sv_newmortal();
3269         sv_copypv_nomg(sv2,sv);
3270         sv = sv2;
8025 Perl_sv_eq_flags(pTHX_ SV *sv1, SV *sv2, const U32 flags)
8040         if (sv1 == sv2 && flags & SV_GMAGIC
8043             sv1 = newSVpvn_flags(pv1, cur1, SVs_TEMP | SvUTF8(sv2));
8048     if (!sv2){
8053         pv2 = SvPV_flags_const(sv2, cur2, flags);
8055     if (cur1 && cur2 && SvUTF8(sv1) != SvUTF8(sv2) && !IN_BYTES) {
8063                   /* sv2 is the UTF-8 one  */
8090 flag. This function basically behaves like the Perl code C<$sv1 eq $sv2>.
8096 Perl_sv_streq_flags(pTHX_ SV *sv1, SV *sv2, const U32 flags)
8103         if(sv2)
8104             SvGETMAGIC(sv2);
8110     if(!sv2)
8111         sv2 = &PL_sv_undef;
8114             (SvAMAGIC(sv1) || SvAMAGIC(sv2))) {
8115         SV *ret = amagic_call(sv1, sv2, seq_amg, 0);
8120     return sv_eq_flags(sv1, sv2, 0);
8138 flag. This function basically behaves like the Perl code C<$sv1 == $sv2>.
8144 Perl_sv_numeq_flags(pTHX_ SV *sv1, SV *sv2, const U32 flags)
8151         if(sv2)
8152             SvGETMAGIC(sv2);
8158     if(!sv2)
8159         sv2 = &PL_sv_undef;
8162             (SvAMAGIC(sv1) || SvAMAGIC(sv2))) {
8163         SV *ret = amagic_call(sv1, sv2, eq_amg, 0);
8168     return do_ncmp(sv1, sv2) == 0;
8176 C<sv2>.  Is UTF-8 and S<C<'use bytes'>> aware, handles get magic, and will
8183 C<sv2>.  Is UTF-8 and S<C<'use bytes'>> aware and will coerce its args to strings
8191 Perl_sv_cmp(pTHX_ SV *const sv1, SV *const sv2)
8193     return sv_cmp_flags(sv1, sv2, SV_GMAGIC);
8197 Perl_sv_cmp_flags(pTHX_ SV *const sv1, SV *const sv2,
8212     if (!sv2) {
8217         pv2 = SvPV_flags_const(sv2, cur2, flags);
8219     if (cur1 && cur2 && SvUTF8(sv1) != SvUTF8(sv2) && !IN_BYTES) {
8419 Perl_sv_cmp_locale(pTHX_ SV *const sv1, SV *const sv2)
8421     return sv_cmp_locale_flags(sv1, sv2, SV_GMAGIC);
8425 Perl_sv_cmp_locale_flags(pTHX_ SV *const sv1, SV *const sv2,
8441     if (sv1 && sv2) {
8446         pv2 = sv_collxfrm_flags(sv2, &len2, flags);
8453         pv2 = sv2 ? sv_collxfrm_flags(sv2, &len2, flags) : (char *) NULL;
8486     return sv_cmp(sv1, sv2);