Lines Matching defs:sstr
3603 Perl_sv_setsv(pTHX_ SV *dstr, register SV *sstr)
3605 sv_setsv_flags(dstr, sstr, SV_GMAGIC);
3643 Perl_sv_setsv_flags(pTHX_ SV *dstr, register SV *sstr, I32 flags)
3649 if (sstr == dstr)
3652 if (!sstr)
3653 sstr = &PL_sv_undef;
3654 stype = SvTYPE(sstr);
3676 if (SvIOK(sstr)) {
3690 SvIVX(dstr) = SvIVX(sstr);
3691 if (SvIsUV(sstr))
3693 if (SvTAINTED(sstr))
3700 if (SvNOK(sstr)) {
3712 SvNVX(dstr) = SvNVX(sstr);
3714 if (SvTAINTED(sstr))
3724 SvROK(sstr) && SvTYPE(SvRV(sstr)) == SVt_PVGV) {
3725 sstr = SvRV(sstr);
3726 if (sstr == dstr) {
3756 Perl_croak(aTHX_ "Bizarre copy of %s in %s", sv_reftype(sstr, 0),
3759 Perl_croak(aTHX_ "Bizarre copy of %s", sv_reftype(sstr, 0));
3766 char *name = GvNAME(sstr);
3767 STRLEN len = GvNAMELEN(sstr);
3770 GvSTASH(dstr) = (HV*)SvREFCNT_inc(GvSTASH(sstr));
3790 GvGP(dstr) = gp_ref(GvGP(sstr));
3791 if (SvTAINTED(sstr))
3804 if (SvGMAGICAL(sstr) && (flags & SV_GMAGIC)) {
3805 mg_get(sstr);
3806 if ((int)SvTYPE(sstr) != stype) {
3807 stype = SvTYPE(sstr);
3818 sflags = SvFLAGS(sstr);
3823 SV *sref = SvREFCNT_inc(SvRV(sstr));
3949 if (SvTAINTED(sstr))
3961 SvRV(dstr) = SvREFCNT_inc(SvRV(sstr));
3968 SvNVX(dstr) = SvNVX(sstr);
3976 SvIVX(dstr) = SvIVX(sstr);
3978 if (SvAMAGIC(sstr)) {
3988 * has to be allocated and SvPVX(sstr) has to be freed.
3991 if (SvTEMP(sstr) && /* slated for free anyway? */
3992 SvREFCNT(sstr) == 1 && /* and no other references to it? */
3994 SvLEN(sstr) && /* and really is a string */
4007 SvPV_set(dstr, SvPVX(sstr));
4008 SvLEN_set(dstr, SvLEN(sstr));
4009 SvCUR_set(dstr, SvCUR(sstr));
4012 (void)SvOK_off(sstr); /* NOTE: nukes most SvFLAGS on sstr */
4013 SvPV_set(sstr, Nullch);
4014 SvLEN_set(sstr, 0);
4015 SvCUR_set(sstr, 0);
4016 SvTEMP_off(sstr);
4019 STRLEN len = SvCUR(sstr);
4021 Move(SvPVX(sstr),SvPVX(dstr),len,char);
4033 SvNVX(dstr) = SvNVX(sstr);
4041 SvIVX(dstr) = SvIVX(sstr);
4043 if ( SvVOK(sstr) ) {
4044 MAGIC *smg = mg_find(sstr,PERL_MAGIC_vstring);
4060 SvIVX(dstr) = SvIVX(sstr);
4066 SvNVX(dstr) = SvNVX(sstr);
4076 SvNVX(dstr) = SvNVX(sstr);
4086 if (SvTAINTED(sstr))
4099 Perl_sv_setsv_mg(pTHX_ SV *dstr, register SV *sstr)
4101 sv_setsv(dstr,sstr);
4351 Perl_sv_catpvn(pTHX_ SV *dsv, const char* sstr, STRLEN slen)
4353 sv_catpvn_flags(dsv, sstr, slen, SV_GMAGIC);
4377 Perl_sv_catpvn_flags(pTHX_ register SV *dsv, register const char *sstr, register STRLEN slen, I32 flags)
4384 if (sstr == dstr)
4385 sstr = SvPVX(dsv);
4386 Move(sstr, SvPVX(dsv) + dlen, slen, char);
4413 Perl_sv_catsv(pTHX_ SV *dstr, register SV *sstr)
4415 sv_catsv_flags(dstr, sstr, SV_GMAGIC);
9744 S_gv_share(pTHX_ SV *sstr, CLONE_PARAMS *param)
9746 GV *gv = (GV*)sstr;
9795 return sstr; /* he_dup() will SvREFCNT_inc() */
9801 Perl_rvpv_dup(pTHX_ SV *dstr, SV *sstr, CLONE_PARAMS* param)
9803 if (SvROK(sstr)) {
9804 SvRV(dstr) = SvWEAKREF(sstr)
9805 ? sv_dup(SvRV(sstr), param)
9806 : sv_dup_inc(SvRV(sstr), param);
9808 else if (SvPVX(sstr)) {
9810 if (SvLEN(sstr)) {
9812 SvPVX(dstr) = SAVEPVN(SvPVX(sstr), SvLEN(sstr)-1);
9816 if (SvREADONLY(sstr) && SvFAKE(sstr)) {
9818 if(SvPADTMP(sstr)) {
9823 SvPVX(dstr) = sharepvn(SvPVX(sstr), SvCUR(sstr),
9824 SvUVX(sstr));
9825 SvUVX(dstr) = SvUVX(sstr);
9828 SvPVX(dstr) = SAVEPVN(SvPVX(sstr), SvCUR(sstr));
9835 SvPVX(dstr) = SvPVX(sstr);
9841 SvPVX(dstr) = SvPVX(sstr);
9846 Perl_sv_dup(pTHX_ SV *sstr, CLONE_PARAMS* param)
9850 if (!sstr || SvTYPE(sstr) == SVTYPEMASK)
9853 dstr = (SV*)ptr_table_fetch(PL_ptr_table, sstr);
9861 if(SvTYPE(sstr) == SVt_PVHV &&
9862 HvNAME(sstr)) {
9864 HV* old_stash = gv_stashpv(HvNAME(sstr),0);
9871 ptr_table_store(PL_ptr_table, sstr, dstr);
9874 SvFLAGS(dstr) = SvFLAGS(sstr);
9879 if (SvANY(sstr) && PL_watch_pvx && SvPVX(sstr) == PL_watch_pvx)
9881 PL_watch_pvx, SvPVX(sstr));
9884 switch (SvTYPE(sstr)) {
9890 SvIVX(dstr) = SvIVX(sstr);
9894 SvNVX(dstr) = SvNVX(sstr);
9898 Perl_rvpv_dup(aTHX_ dstr, sstr, param);
9902 SvCUR(dstr) = SvCUR(sstr);
9903 SvLEN(dstr) = SvLEN(sstr);
9904 Perl_rvpv_dup(aTHX_ dstr, sstr, param);
9908 SvCUR(dstr) = SvCUR(sstr);
9909 SvLEN(dstr) = SvLEN(sstr);
9910 SvIVX(dstr) = SvIVX(sstr);
9911 Perl_rvpv_dup(aTHX_ dstr, sstr, param);
9915 SvCUR(dstr) = SvCUR(sstr);
9916 SvLEN(dstr) = SvLEN(sstr);
9917 SvIVX(dstr) = SvIVX(sstr);
9918 SvNVX(dstr) = SvNVX(sstr);
9919 Perl_rvpv_dup(aTHX_ dstr, sstr, param);
9923 SvCUR(dstr) = SvCUR(sstr);
9924 SvLEN(dstr) = SvLEN(sstr);
9925 SvIVX(dstr) = SvIVX(sstr);
9926 SvNVX(dstr) = SvNVX(sstr);
9927 SvMAGIC(dstr) = mg_dup(SvMAGIC(sstr), param);
9928 SvSTASH(dstr) = hv_dup_inc(SvSTASH(sstr), param);
9929 Perl_rvpv_dup(aTHX_ dstr, sstr, param);
9933 SvCUR(dstr) = SvCUR(sstr);
9934 SvLEN(dstr) = SvLEN(sstr);
9935 SvIVX(dstr) = SvIVX(sstr);
9936 SvNVX(dstr) = SvNVX(sstr);
9937 SvMAGIC(dstr) = mg_dup(SvMAGIC(sstr), param);
9938 SvSTASH(dstr) = hv_dup_inc(SvSTASH(sstr), param);
9939 Perl_rvpv_dup(aTHX_ dstr, sstr, param);
9940 BmRARE(dstr) = BmRARE(sstr);
9941 BmUSEFUL(dstr) = BmUSEFUL(sstr);
9942 BmPREVIOUS(dstr)= BmPREVIOUS(sstr);
9946 SvCUR(dstr) = SvCUR(sstr);
9947 SvLEN(dstr) = SvLEN(sstr);
9948 SvIVX(dstr) = SvIVX(sstr);
9949 SvNVX(dstr) = SvNVX(sstr);
9950 SvMAGIC(dstr) = mg_dup(SvMAGIC(sstr), param);
9951 SvSTASH(dstr) = hv_dup_inc(SvSTASH(sstr), param);
9952 Perl_rvpv_dup(aTHX_ dstr, sstr, param);
9953 LvTARGOFF(dstr) = LvTARGOFF(sstr); /* XXX sometimes holds PMOP* when DEBUGGING */
9954 LvTARGLEN(dstr) = LvTARGLEN(sstr);
9955 if (LvTYPE(sstr) == 't') /* for tie: unrefcnted fake (SV**) */
9957 else if (LvTYPE(sstr) == 'T') /* for tie: fake HE */
9958 LvTARG(dstr) = (SV*)he_dup((HE*)LvTARG(sstr), 0, param);
9960 LvTARG(dstr) = sv_dup_inc(LvTARG(sstr), param);
9961 LvTYPE(dstr) = LvTYPE(sstr);
9964 if (GvUNIQUE((GV*)sstr)) {
9966 if ((share = gv_share(sstr, param))) {
9969 ptr_table_store(PL_ptr_table, sstr, dstr);
9978 SvCUR(dstr) = SvCUR(sstr);
9979 SvLEN(dstr) = SvLEN(sstr);
9980 SvIVX(dstr) = SvIVX(sstr);
9981 SvNVX(dstr) = SvNVX(sstr);
9982 SvMAGIC(dstr) = mg_dup(SvMAGIC(sstr), param);
9983 SvSTASH(dstr) = hv_dup_inc(SvSTASH(sstr), param);
9984 Perl_rvpv_dup(aTHX_ dstr, sstr, param);
9985 GvNAMELEN(dstr) = GvNAMELEN(sstr);
9986 GvNAME(dstr) = SAVEPVN(GvNAME(sstr), GvNAMELEN(sstr));
9987 GvSTASH(dstr) = hv_dup_inc(GvSTASH(sstr), param);
9988 GvFLAGS(dstr) = GvFLAGS(sstr);
9989 GvGP(dstr) = gp_dup(GvGP(sstr), param);
9994 SvCUR(dstr) = SvCUR(sstr);
9995 SvLEN(dstr) = SvLEN(sstr);
9996 SvIVX(dstr) = SvIVX(sstr);
9997 SvNVX(dstr) = SvNVX(sstr);
9998 SvMAGIC(dstr) = mg_dup(SvMAGIC(sstr), param);
9999 SvSTASH(dstr) = hv_dup_inc(SvSTASH(sstr), param);
10000 Perl_rvpv_dup(aTHX_ dstr, sstr, param);
10001 IoIFP(dstr) = fp_dup(IoIFP(sstr), IoTYPE(sstr), param);
10002 if (IoOFP(sstr) == IoIFP(sstr))
10005 IoOFP(dstr) = fp_dup(IoOFP(sstr), IoTYPE(sstr), param);
10007 if (IoDIRP(sstr) && !(IoFLAGS(sstr) & IOf_FAKE_DIRP))
10008 IoDIRP(dstr) = dirp_dup(IoDIRP(sstr));
10010 IoDIRP(dstr) = IoDIRP(sstr);
10011 IoLINES(dstr) = IoLINES(sstr);
10012 IoPAGE(dstr) = IoPAGE(sstr);
10013 IoPAGE_LEN(dstr) = IoPAGE_LEN(sstr);
10014 IoLINES_LEFT(dstr) = IoLINES_LEFT(sstr);
10015 if(IoFLAGS(sstr) & IOf_FAKE_DIRP) {
10019 IoTOP_GV(dstr) = gv_dup_inc(IoTOP_GV(sstr), param);
10020 IoFMT_GV(dstr) = gv_dup_inc(IoFMT_GV(sstr), param);
10021 IoBOTTOM_GV(dstr) = gv_dup_inc(IoBOTTOM_GV(sstr), param);
10023 IoTOP_GV(dstr) = gv_dup(IoTOP_GV(sstr), param);
10024 IoFMT_GV(dstr) = gv_dup(IoFMT_GV(sstr), param);
10025 IoBOTTOM_GV(dstr) = gv_dup(IoBOTTOM_GV(sstr), param);
10027 IoTOP_NAME(dstr) = SAVEPV(IoTOP_NAME(sstr));
10028 IoFMT_NAME(dstr) = SAVEPV(IoFMT_NAME(sstr));
10029 IoBOTTOM_NAME(dstr) = SAVEPV(IoBOTTOM_NAME(sstr));
10030 IoSUBPROCESS(dstr) = IoSUBPROCESS(sstr);
10031 IoTYPE(dstr) = IoTYPE(sstr);
10032 IoFLAGS(dstr) = IoFLAGS(sstr);
10036 SvCUR(dstr) = SvCUR(sstr);
10037 SvLEN(dstr) = SvLEN(sstr);
10038 SvIVX(dstr) = SvIVX(sstr);
10039 SvNVX(dstr) = SvNVX(sstr);
10040 SvMAGIC(dstr) = mg_dup(SvMAGIC(sstr), param);
10041 SvSTASH(dstr) = hv_dup_inc(SvSTASH(sstr), param);
10042 AvARYLEN((AV*)dstr) = sv_dup_inc(AvARYLEN((AV*)sstr), param);
10043 AvFLAGS((AV*)dstr) = AvFLAGS((AV*)sstr);
10044 if (AvARRAY((AV*)sstr)) {
10046 SSize_t items = AvFILLp((AV*)sstr) + 1;
10048 src_ary = AvARRAY((AV*)sstr);
10049 Newz(0, dst_ary, AvMAX((AV*)sstr)+1, SV*);
10053 if (AvREAL((AV*)sstr)) {
10061 items = AvMAX((AV*)sstr) - AvFILLp((AV*)sstr);
10073 SvCUR(dstr) = SvCUR(sstr);
10074 SvLEN(dstr) = SvLEN(sstr);
10075 SvIVX(dstr) = SvIVX(sstr);
10076 SvNVX(dstr) = SvNVX(sstr);
10077 SvMAGIC(dstr) = mg_dup(SvMAGIC(sstr), param);
10078 SvSTASH(dstr) = hv_dup_inc(SvSTASH(sstr), param);
10079 HvRITER((HV*)dstr) = HvRITER((HV*)sstr);
10080 if (HvARRAY((HV*)sstr)) {
10083 XPVHV *sxhv = (XPVHV*)SvANY(sstr);
10088 (bool)!!HvSHAREKEYS(sstr),
10093 (bool)!!HvSHAREKEYS(sstr), param);
10099 HvPMROOT((HV*)dstr) = HvPMROOT((HV*)sstr); /* XXX */
10100 HvNAME((HV*)dstr) = SAVEPV(HvNAME((HV*)sstr));
10107 FmLINES(dstr) = FmLINES(sstr);
10113 SvCUR(dstr) = SvCUR(sstr);
10114 SvLEN(dstr) = SvLEN(sstr);
10115 SvIVX(dstr) = SvIVX(sstr);
10116 SvNVX(dstr) = SvNVX(sstr);
10117 SvMAGIC(dstr) = mg_dup(SvMAGIC(sstr), param);
10118 SvSTASH(dstr) = hv_dup_inc(SvSTASH(sstr), param);
10119 Perl_rvpv_dup(aTHX_ dstr, sstr, param);
10120 CvSTASH(dstr) = hv_dup(CvSTASH(sstr), param); /* NOTE: not refcounted */
10121 CvSTART(dstr) = CvSTART(sstr);
10122 CvROOT(dstr) = OpREFCNT_inc(CvROOT(sstr));
10123 CvXSUB(dstr) = CvXSUB(sstr);
10124 CvXSUBANY(dstr) = CvXSUBANY(sstr);
10125 if (CvCONST(sstr)) {
10126 CvXSUBANY(dstr).any_ptr = GvUNIQUE(CvGV(sstr)) ?
10127 SvREFCNT_inc(CvXSUBANY(sstr).any_ptr) :
10128 sv_dup_inc(CvXSUBANY(sstr).any_ptr, param);
10133 Nullgv : gv_dup(CvGV(sstr), param) ;
10135 CvDEPTH(dstr) = CvDEPTH(sstr);
10139 PAD_DUP(CvPADLIST(dstr), CvPADLIST(sstr), param);
10140 CvOUTSIDE_SEQ(dstr) = CvOUTSIDE_SEQ(sstr);
10142 CvWEAKOUTSIDE(sstr)
10143 ? cv_dup( CvOUTSIDE(sstr), param)
10144 : cv_dup_inc(CvOUTSIDE(sstr), param);
10145 CvFLAGS(dstr) = CvFLAGS(sstr);
10146 CvFILE(dstr) = CvXSUB(sstr) ? CvFILE(sstr) : SAVEPV(CvFILE(sstr));
10149 Perl_croak(aTHX_ "Bizarre SvTYPE [%" IVdf "]", (IV)SvTYPE(sstr));