Lines Matching refs:dstr
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)
3651 SV_CHECK_THINKFIRST(dstr);
3655 dtype = SvTYPE(dstr);
3657 SvAMAGIC_off(dstr);
3658 if ( SvVOK(dstr) )
3661 mg_free(dstr);
3662 SvRMAGICAL_off(dstr);
3671 (void)SvOK_off(dstr);
3679 sv_upgrade(dstr, SVt_IV);
3682 sv_upgrade(dstr, SVt_PVNV);
3686 sv_upgrade(dstr, SVt_PVIV);
3689 (void)SvIOK_only(dstr);
3690 SvIVX(dstr) = SvIVX(sstr);
3692 SvIsUV_on(dstr);
3694 SvTAINT(dstr);
3704 sv_upgrade(dstr, SVt_NV);
3709 sv_upgrade(dstr, SVt_PVNV);
3712 SvNVX(dstr) = SvNVX(sstr);
3713 (void)SvNOK_only(dstr);
3715 SvTAINT(dstr);
3722 sv_upgrade(dstr, SVt_RV);
3726 if (sstr == dstr) {
3727 if (GvIMPORTED(dstr) != GVf_IMPORTED
3728 && CopSTASH_ne(PL_curcop, GvSTASH(dstr)))
3730 GvIMPORTED_on(dstr);
3732 GvMULTI_on(dstr);
3741 sv_upgrade(dstr, SVt_PV);
3745 sv_upgrade(dstr, SVt_PVIV);
3749 sv_upgrade(dstr, SVt_PVNV);
3768 sv_upgrade(dstr, SVt_PVGV);
3769 sv_magic(dstr, dstr, PERL_MAGIC_glob, Nullch, 0);
3770 GvSTASH(dstr) = (HV*)SvREFCNT_inc(GvSTASH(sstr));
3771 GvNAME(dstr) = savepvn(name, len);
3772 GvNAMELEN(dstr) = len;
3773 SvFAKE_on(dstr); /* can coerce to non-glob */
3777 && GvCV(dstr) && PL_sortcop == CvSTART(GvCV(dstr)))
3779 GvNAME(dstr));
3782 if (GvUNIQUE((GV*)dstr)) {
3787 (void)SvOK_off(dstr);
3788 GvINTRO_off(dstr); /* one-shot flag */
3789 gp_free((GV*)dstr);
3790 GvGP(dstr) = gp_ref(GvGP(sstr));
3792 SvTAINT(dstr);
3793 if (GvIMPORTED(dstr) != GVf_IMPORTED
3794 && CopSTASH_ne(PL_curcop, GvSTASH(dstr)))
3796 GvIMPORTED_on(dstr);
3798 GvMULTI_on(dstr);
3813 (void)SvUPGRADE(dstr, SVt_PVNV);
3815 (void)SvUPGRADE(dstr, (U32)stype);
3825 int intro = GvINTRO(dstr);
3828 if (GvUNIQUE((GV*)dstr)) {
3834 GvINTRO_off(dstr); /* one-shot flag */
3835 GvLINE(dstr) = CopLINE(PL_curcop);
3836 GvEGV(dstr) = (GV*)dstr;
3838 GvMULTI_on(dstr);
3842 SAVEGENERICSV(GvAV(dstr));
3844 dref = (SV*)GvAV(dstr);
3845 GvAV(dstr) = (AV*)sref;
3846 if (!GvIMPORTED_AV(dstr)
3847 && CopSTASH_ne(PL_curcop, GvSTASH(dstr)))
3849 GvIMPORTED_AV_on(dstr);
3854 SAVEGENERICSV(GvHV(dstr));
3856 dref = (SV*)GvHV(dstr);
3857 GvHV(dstr) = (HV*)sref;
3858 if (!GvIMPORTED_HV(dstr)
3859 && CopSTASH_ne(PL_curcop, GvSTASH(dstr)))
3861 GvIMPORTED_HV_on(dstr);
3866 if (GvCVGEN(dstr) && GvCV(dstr) != (CV*)sref) {
3867 SvREFCNT_dec(GvCV(dstr));
3868 GvCV(dstr) = Nullcv;
3869 GvCVGEN(dstr) = 0; /* Switch off cacheness. */
3872 SAVEGENERICSV(GvCV(dstr));
3875 dref = (SV*)GvCV(dstr);
3876 if (GvCV(dstr) != (CV*)sref) {
3877 CV* cv = GvCV(dstr);
3879 if (!GvCVGEN((GV*)dstr) &&
3888 GvENAME((GV*)dstr));
3901 HvNAME(GvSTASH((GV*)dstr)),
3902 GvENAME((GV*)dstr));
3906 cv_ckproto(cv, (GV*)dstr,
3909 GvCV(dstr) = (CV*)sref;
3910 GvCVGEN(dstr) = 0; /* Switch off cacheness. */
3911 GvASSUMECV_on(dstr);
3914 if (!GvIMPORTED_CV(dstr)
3915 && CopSTASH_ne(PL_curcop, GvSTASH(dstr)))
3917 GvIMPORTED_CV_on(dstr);
3922 SAVEGENERICSV(GvIOp(dstr));
3924 dref = (SV*)GvIOp(dstr);
3925 GvIOp(dstr) = (IO*)sref;
3929 SAVEGENERICSV(GvFORM(dstr));
3931 dref = (SV*)GvFORM(dstr);
3932 GvFORM(dstr) = (CV*)sref;
3936 SAVEGENERICSV(GvSV(dstr));
3938 dref = (SV*)GvSV(dstr);
3939 GvSV(dstr) = sref;
3940 if (!GvIMPORTED_SV(dstr)
3941 && CopSTASH_ne(PL_curcop, GvSTASH(dstr)))
3943 GvIMPORTED_SV_on(dstr);
3950 SvTAINT(dstr);
3953 if (SvPVX(dstr)) {
3954 (void)SvOOK_off(dstr); /* backoff */
3955 if (SvLEN(dstr))
3956 Safefree(SvPVX(dstr));
3957 SvLEN(dstr)=SvCUR(dstr)=0;
3960 (void)SvOK_off(dstr);
3961 SvRV(dstr) = SvREFCNT_inc(SvRV(sstr));
3962 SvROK_on(dstr);
3964 SvNOKp_on(dstr);
3967 SvFLAGS(dstr) |= SVf_NOK;
3968 SvNVX(dstr) = SvNVX(sstr);
3971 (void)SvIOKp_on(dstr);
3973 SvFLAGS(dstr) |= SVf_IOK;
3975 SvIsUV_on(dstr);
3976 SvIVX(dstr) = SvIVX(sstr);
3979 SvAMAGIC_on(dstr);
3987 * It might even be a win on short strings if SvPVX(dstr)
3998 if (SvPVX(dstr)) { /* we know that dtype >= SVt_PV */
3999 if (SvOOK(dstr)) {
4000 SvFLAGS(dstr) &= ~SVf_OOK;
4001 Safefree(SvPVX(dstr) - SvIVX(dstr));
4003 else if (SvLEN(dstr))
4004 Safefree(SvPVX(dstr));
4006 (void)SvPOK_only(dstr);
4007 SvPV_set(dstr, SvPVX(sstr));
4008 SvLEN_set(dstr, SvLEN(sstr));
4009 SvCUR_set(dstr, SvCUR(sstr));
4011 SvTEMP_off(dstr);
4020 SvGROW(dstr, len + 1); /* inlined from sv_setpvn */
4021 Move(SvPVX(sstr),SvPVX(dstr),len,char);
4022 SvCUR_set(dstr, len);
4023 *SvEND(dstr) = '\0';
4024 (void)SvPOK_only(dstr);
4027 SvUTF8_on(dstr);
4030 SvNOKp_on(dstr);
4032 SvFLAGS(dstr) |= SVf_NOK;
4033 SvNVX(dstr) = SvNVX(sstr);
4036 (void)SvIOKp_on(dstr);
4038 SvFLAGS(dstr) |= SVf_IOK;
4040 SvIsUV_on(dstr);
4041 SvIVX(dstr) = SvIVX(sstr);
4045 sv_magic(dstr, NULL, PERL_MAGIC_vstring,
4047 SvRMAGICAL_on(dstr);
4052 (void)SvIOK_only(dstr);
4054 (void)SvOK_off(dstr);
4055 (void)SvIOKp_on(dstr);
4059 SvIsUV_on(dstr);
4060 SvIVX(dstr) = SvIVX(sstr);
4063 (void)SvNOK_on(dstr);
4065 (void)SvNOKp_on(dstr);
4066 SvNVX(dstr) = SvNVX(sstr);
4071 (void)SvNOK_only(dstr);
4073 (void)SvOK_off(dstr);
4074 SvNOKp_on(dstr);
4076 SvNVX(dstr) = SvNVX(sstr);
4084 (void)SvOK_off(dstr);
4087 SvTAINT(dstr);
4099 Perl_sv_setsv_mg(pTHX_ SV *dstr, register SV *sstr)
4101 sv_setsv(dstr,sstr);
4102 SvSETMAGIC(dstr);
4380 char *dstr;
4382 dstr = SvPV_force_flags(dsv, dlen, flags);
4384 if (sstr == dstr)
4413 Perl_sv_catsv(pTHX_ SV *dstr, register SV *sstr)
4415 sv_catsv_flags(dstr, sstr, SV_GMAGIC);
9801 Perl_rvpv_dup(pTHX_ SV *dstr, SV *sstr, CLONE_PARAMS* param)
9804 SvRV(dstr) = SvWEAKREF(sstr)
9812 SvPVX(dstr) = SAVEPVN(SvPVX(sstr), SvLEN(sstr)-1);
9823 SvPVX(dstr) = sharepvn(SvPVX(sstr), SvCUR(sstr),
9825 SvUVX(dstr) = SvUVX(sstr);
9828 SvPVX(dstr) = SAVEPVN(SvPVX(sstr), SvCUR(sstr));
9829 SvFAKE_off(dstr);
9830 SvREADONLY_off(dstr);
9835 SvPVX(dstr) = SvPVX(sstr);
9841 SvPVX(dstr) = SvPVX(sstr);
9848 SV *dstr;
9853 dstr = (SV*)ptr_table_fetch(PL_ptr_table, sstr);
9854 if (dstr)
9855 return dstr;
9870 new_SV(dstr);
9871 ptr_table_store(PL_ptr_table, sstr, dstr);
9874 SvFLAGS(dstr) = SvFLAGS(sstr);
9875 SvFLAGS(dstr) &= ~SVf_OOK; /* don't propagate OOK hack */
9876 SvREFCNT(dstr) = 0; /* must be before any other dups! */
9886 SvANY(dstr) = NULL;
9889 SvANY(dstr) = new_XIV();
9890 SvIVX(dstr) = SvIVX(sstr);
9893 SvANY(dstr) = new_XNV();
9894 SvNVX(dstr) = SvNVX(sstr);
9897 SvANY(dstr) = new_XRV();
9898 Perl_rvpv_dup(aTHX_ dstr, sstr, param);
9901 SvANY(dstr) = new_XPV();
9902 SvCUR(dstr) = SvCUR(sstr);
9903 SvLEN(dstr) = SvLEN(sstr);
9904 Perl_rvpv_dup(aTHX_ dstr, sstr, param);
9907 SvANY(dstr) = new_XPVIV();
9908 SvCUR(dstr) = SvCUR(sstr);
9909 SvLEN(dstr) = SvLEN(sstr);
9910 SvIVX(dstr) = SvIVX(sstr);
9911 Perl_rvpv_dup(aTHX_ dstr, sstr, param);
9914 SvANY(dstr) = new_XPVNV();
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);
9922 SvANY(dstr) = new_XPVMG();
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);
9932 SvANY(dstr) = new_XPVBM();
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);
9945 SvANY(dstr) = new_XPVLV();
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);
9956 LvTARG(dstr) = dstr;
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);
9967 del_SV(dstr);
9968 dstr = share;
9969 ptr_table_store(PL_ptr_table, sstr, dstr);
9977 SvANY(dstr) = new_XPVGV();
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);
9990 (void)GpREFCNT_inc(GvGP(dstr));
9993 SvANY(dstr) = new_XPVIO();
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);
10003 IoOFP(dstr) = IoIFP(dstr);
10005 IoOFP(dstr) = fp_dup(IoOFP(sstr), IoTYPE(sstr), param);
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);
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);
10035 SvANY(dstr) = new_XPVAV();
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);
10051 SvPVX(dstr) = (char*)dst_ary;
10052 AvALLOC((AV*)dstr) = dst_ary;
10067 SvPVX(dstr) = Nullch;
10068 AvALLOC((AV*)dstr) = (SV**)NULL;
10072 SvANY(dstr) = new_XPVHV();
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);
10082 XPVHV *dxhv = (XPVHV*)SvANY(dstr);
10096 SvPVX(dstr) = Nullch;
10097 HvEITER((HV*)dstr) = (HE*)NULL;
10099 HvPMROOT((HV*)dstr) = HvPMROOT((HV*)sstr); /* XXX */
10100 HvNAME((HV*)dstr) = SAVEPV(HvNAME((HV*)sstr));
10102 if(HvNAME((HV*)dstr))
10103 av_push(param->stashes, dstr);
10106 SvANY(dstr) = new_XPVFM();
10107 FmLINES(dstr) = FmLINES(sstr);
10111 SvANY(dstr) = new_XPVCV();
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);
10126 CvXSUBANY(dstr).any_ptr = GvUNIQUE(CvGV(sstr)) ?
10132 CvGV(dstr) = (param->flags & CLONEf_JOIN_IN) ?
10135 CvDEPTH(dstr) = CvDEPTH(sstr);
10137 CvDEPTH(dstr) = 0;
10139 PAD_DUP(CvPADLIST(dstr), CvPADLIST(sstr), param);
10140 CvOUTSIDE_SEQ(dstr) = CvOUTSIDE_SEQ(sstr);
10141 CvOUTSIDE(dstr) =
10145 CvFLAGS(dstr) = CvFLAGS(sstr);
10146 CvFILE(dstr) = CvXSUB(sstr) ? CvFILE(sstr) : SAVEPV(CvFILE(sstr));
10153 if (SvOBJECT(dstr) && SvTYPE(dstr) != SVt_PVIO)
10156 return dstr;