Lines Matching refs:sv
79 S_save_magic(pTHX_ I32 mgs_ix, SV *sv)
82 assert(SvMAGICAL(sv));
87 mgs->mgs_sv = sv;
88 mgs->mgs_flags = SvMAGICAL(sv) | SvREADONLY(sv);
91 SvMAGICAL_off(sv);
92 SvREADONLY_off(sv);
93 SvFLAGS(sv) |= (SvFLAGS(sv) & (SVp_NOK|SVp_POK)) >> PRIVSHIFT;
105 Perl_mg_magical(pTHX_ SV *sv)
108 for (mg = SvMAGIC(sv); mg; mg = mg->mg_moremagic) {
112 SvGMAGICAL_on(sv);
114 SvSMAGICAL_on(sv);
115 if (!(SvFLAGS(sv) & (SVs_GMG|SVs_SMG)) || vtbl->svt_clear)
116 SvRMAGICAL_on(sv);
130 Perl_mg_get(pTHX_ SV *sv)
136 save_magic(mgs_ix, sv);
138 /* We must call svt_get(sv, mg) for each valid entry in the linked
142 newmg = cur = head = mg = SvMAGIC(sv);
147 CALL_FPTR(vtbl->svt_get)(aTHX_ sv, mg);
149 /* guard against sv having been freed */
150 if (SvTYPE(sv) == SVTYPEMASK) {
155 if (!SvMAGIC(sv))
176 if (!new && (newmg = SvMAGIC(sv)) != head) {
196 Perl_mg_set(pTHX_ SV *sv)
203 save_magic(mgs_ix, sv);
205 for (mg = SvMAGIC(sv); mg; mg = nextmg) {
213 CALL_FPTR(vtbl->svt_set)(aTHX_ sv, mg);
229 Perl_mg_length(pTHX_ SV *sv)
234 for (mg = SvMAGIC(sv); mg; mg = mg->mg_moremagic) {
240 save_magic(mgs_ix, sv);
242 len = CALL_FPTR(vtbl->svt_len)(aTHX_ sv, mg);
248 if (DO_UTF8(sv))
250 U8 *s = (U8*)SvPV(sv, len);
254 (void)SvPV(sv, len);
259 Perl_mg_size(pTHX_ SV *sv)
264 for (mg = SvMAGIC(sv); mg; mg = mg->mg_moremagic) {
270 save_magic(mgs_ix, sv);
272 len = CALL_FPTR(vtbl->svt_len)(aTHX_ sv, mg);
278 switch(SvTYPE(sv)) {
280 len = AvFILLp((AV *) sv); /* Fallback to non-tied array */
300 Perl_mg_clear(pTHX_ SV *sv)
306 save_magic(mgs_ix, sv);
308 for (mg = SvMAGIC(sv); mg; mg = mg->mg_moremagic) {
313 CALL_FPTR(vtbl->svt_clear)(aTHX_ sv, mg);
329 Perl_mg_find(pTHX_ SV *sv, int type)
332 if (!sv)
334 for (mg = SvMAGIC(sv); mg; mg = mg->mg_moremagic) {
350 Perl_mg_copy(pTHX_ SV *sv, SV *nsv, const char *key, I32 klen)
354 for (mg = SvMAGIC(sv); mg; mg = mg->mg_moremagic) {
357 count += CALL_FPTR(vtbl->svt_copy)(aTHX_ sv, mg, nsv, key, klen);
361 mg->mg_type == PERL_MAGIC_tied ? SvTIED_obj(sv, mg) :
363 ? sv : mg->mg_obj,
380 Perl_mg_free(pTHX_ SV *sv)
384 for (mg = SvMAGIC(sv); mg; mg = moremagic) {
388 CALL_FPTR(vtbl->svt_free)(aTHX_ sv, mg);
399 SvMAGIC(sv) = 0;
406 Perl_magic_regdata_cnt(pTHX_ SV *sv, MAGIC *mg)
421 Perl_magic_regdatum_get(pTHX_ SV *sv, MAGIC *mg)
448 sv_setiv(sv, i);
455 Perl_magic_regdatum_set(pTHX_ SV *sv, MAGIC *mg)
463 Perl_magic_len(pTHX_ SV *sv, MAGIC *mg)
544 magic_get(sv,mg);
545 if (!SvPOK(sv) && SvNIOK(sv)) {
547 sv_2pv(sv, &n_a);
549 if (SvPOK(sv))
550 return SvCUR(sv);
555 Perl_magic_get(pTHX_ SV *sv, MAGIC *mg)
564 sv_setsv(sv, PL_bodytarget);
567 sv_setiv(sv, (IV)PL_minus_c);
571 sv_setiv(sv, (IV)(PL_debug & DEBUG_MASK));
582 sv_setnv(sv,(double)gMacPerl_OSErr);
583 sv_setpv(sv, gMacPerl_OSErr ? GetSysErrText(gMacPerl_OSErr, msg) : "");
592 sv_setnv(sv,(NV) vaxc$errno);
594 sv_setpvn(sv,msgdsc.dsc$a_pointer,msgdsc.dsc$w_length);
596 sv_setpv(sv,"");
601 sv_setnv(sv, (NV)errno);
602 sv_setpv(sv, errno ? Strerror(errno) : "");
609 sv_setnv(sv, (NV)Perl_rc);
610 sv_setpv(sv, os2error(Perl_rc));
616 sv_setnv(sv, (NV)dwErr);
619 PerlProc_GetOSError(sv, dwErr);
622 sv_setpv(sv, "");
628 sv_setnv(sv, (NV)errno);
629 sv_setpv(sv, errno ? Strerror(errno) : "");
636 SvNOK_on(sv); /* what a wonderful hack! */
639 sv_setsv(sv, PL_encoding);
642 sv_setiv(sv, (IV)PL_maxsysfd);
645 sv_setiv(sv, (IV)PL_hints);
649 sv_setpv(sv, PL_inplace);
651 sv_setsv(sv, &PL_sv_undef);
655 sv_setpv(sv, PL_osname);
656 SvTAINTED_off(sv);
660 sv_setsv(sv, &PL_sv_undef);
662 sv_setsv(sv, PL_compiling.cop_io);
667 sv_setiv(sv, (IV)PL_perldb);
672 (void)SvOK_off(sv);
674 sv_setiv(sv, PL_in_eval & ~(EVAL_INREQUIRE));
676 sv_setiv(sv, 0);
682 sv_setnv(sv, PL_basetime);
684 sv_setiv(sv, (IV)PL_basetime);
688 sv_setiv(sv, PL_tainting
694 sv_setuv(sv, (UV) PL_unicode);
698 sv_setiv(sv, (IV)((PL_dowarn & G_WARN_ON) ? TRUE : FALSE));
703 sv_setpvn(sv, WARN_NONEstring, WARNsize) ;
706 sv_setpvn(sv, WARN_ALLstring, WARNsize) ;
709 sv_setsv(sv, PL_compiling.cop_warnings);
711 SvPOK_only(sv);
736 sv_setpvn(sv, s, i);
738 SvUTF8_on(sv);
740 SvUTF8_off(sv);
743 MAGIC* mg = SvMAGIC(sv);
746 SvMAGIC(sv) = mg->mg_moremagic;
747 SvTAINT(sv);
748 if ((mgt = SvMAGIC(sv))) {
750 SvMAGIC(sv) = mg;
753 SvTAINTED_off(sv);
759 sv_setsv(sv,&PL_sv_undef);
767 sv_setsv(sv,&PL_sv_undef);
775 sv_setsv(sv,&PL_sv_undef);
784 sv_setsv(sv,&PL_sv_undef);
794 sv_setsv(sv,&PL_sv_undef);
799 sv_setiv(sv, (IV)IoLINES(GvIOp(PL_last_in_gv)));
805 sv_setiv(sv, (IV)STATUS_CURRENT);
807 LvTARGOFF(sv) = PL_statusvalue;
808 LvTARGLEN(sv) = PL_statusvalue_vms;
816 sv_setpv(sv,s);
818 sv_setpv(sv,GvENAME(PL_defoutgv));
819 sv_catpv(sv,"_TOP");
827 sv_setpv(sv,s);
832 sv_setiv(sv, (IV)IoPAGE_LEN(GvIOp(PL_defoutgv)));
836 sv_setiv(sv, (IV)IoLINES_LEFT(GvIOp(PL_defoutgv)));
840 sv_setiv(sv, (IV)IoPAGE(GvIOp(PL_defoutgv)));
848 WITH_THR(sv_setiv(sv, (IV)PL_curcop->cop_arybase));
852 sv_setiv(sv, (IV)(IoFLAGS(GvIOp(PL_defoutgv)) & IOf_FLUSH) != 0 );
858 sv_copypv(sv, PL_ors_sv);
861 sv_setpv(sv,PL_ofmt);
865 sv_setnv(sv, (NV)((errno == EVMSERR) ? vaxc$errno : errno));
866 sv_setpv(sv, errno ? Strerror(errno) : "");
870 sv_setnv(sv, (NV)errno);
873 sv_setpv(sv, os2error(Perl_rc));
876 sv_setpv(sv, errno ? Strerror(errno) : "");
880 SvNOK_on(sv); /* what a wonderful hack! */
883 sv_setiv(sv, (IV)PL_uid);
886 sv_setiv(sv, (IV)PL_euid);
889 sv_setiv(sv, (IV)PL_gid);
891 Perl_sv_setpvf(aTHX_ sv, "%"Gid_t_f, PL_gid);
895 sv_setiv(sv, (IV)PL_egid);
897 Perl_sv_setpvf(aTHX_ sv, "%"Gid_t_f, PL_egid);
911 Perl_sv_catpvf(aTHX_ sv, " %"Gid_t_f, gary[i]);
914 (void)SvIOK_on(sv); /* what a wonderful hack! */
924 sv_setsv(sv, thr->errsv);
932 Perl_magic_getuvar(pTHX_ SV *sv, MAGIC *mg)
937 (*uf->uf_val)(aTHX_ uf->uf_index, sv);
942 Perl_magic_setenv(pTHX_ SV *sv, MAGIC *mg)
948 s = SvPV(sv,len);
1018 Perl_magic_clearenv(pTHX_ SV *sv, MAGIC *mg)
1026 Perl_magic_set_all_env(pTHX_ SV *sv, MAGIC *mg)
1034 magic_clear_all_env(sv,mg);
1035 hv_iterinit((HV*)sv);
1036 while ((entry = hv_iternext((HV*)sv))) {
1039 SvPV(hv_iterval((HV*)sv, entry), n_a));
1047 Perl_magic_clear_all_env(pTHX_ SV *sv, MAGIC *mg)
1101 Perl_magic_getsig(pTHX_ SV *sv, MAGIC *mg)
1109 sv_setsv(sv,PL_psig_ptr[i]);
1121 sv_setpv(sv,"IGNORE");
1123 sv_setsv(sv,&PL_sv_undef);
1124 PL_psig_ptr[i] = SvREFCNT_inc(sv);
1125 SvTEMP_off(sv);
1131 Perl_magic_clearsig(pTHX_ SV *sv, MAGIC *mg)
1273 Perl_magic_setsig(pTHX_ SV *sv, MAGIC *mg)
1332 PL_psig_ptr[i] = SvREFCNT_inc(sv);
1333 SvTEMP_off(sv); /* Make sure it doesn't go away on us */
1337 if (SvTYPE(sv) == SVt_PVGV || SvROK(sv)) {
1345 *svp = SvREFCNT_inc(sv);
1350 s = SvPV_force(sv,len);
1379 sv_insert(sv, 0, 0, "main::", 6);
1383 *svp = SvREFCNT_inc(sv);
1396 Perl_magic_setisa(pTHX_ SV *sv, MAGIC *mg)
1403 Perl_magic_setamagic(pTHX_ SV *sv, MAGIC *mg)
1405 /* HV_badAMAGIC_on(Sv_STASH(sv)); */
1412 Perl_magic_getnkeys(pTHX_ SV *sv, MAGIC *mg)
1414 HV *hv = (HV*)LvTARG(sv);
1427 sv_setiv(sv, (IV)i);
1432 Perl_magic_setnkeys(pTHX_ SV *sv, MAGIC *mg)
1434 if (LvTARG(sv)) {
1435 hv_ksplit((HV*)LvTARG(sv), SvIV(sv));
1442 S_magic_methcall(pTHX_ SV *sv, MAGIC *mg, char *meth, I32 flags, int n, SV *val)
1448 PUSHs(SvTIED_obj(sv, mg));
1469 S_magic_methpack(pTHX_ SV *sv, MAGIC *mg, char *meth)
1477 if (magic_methcall(sv, mg, meth, G_SCALAR, 2, NULL)) {
1478 sv_setsv(sv, *PL_stack_sp--);
1488 Perl_magic_getpack(pTHX_ SV *sv, MAGIC *mg)
1492 magic_methpack(sv,mg,"FETCH");
1497 Perl_magic_setpack(pTHX_ SV *sv, MAGIC *mg)
1502 magic_methcall(sv, mg, "STORE", G_SCALAR|G_DISCARD, 3, sv);
1509 Perl_magic_clearpack(pTHX_ SV *sv, MAGIC *mg)
1511 return magic_methpack(sv,mg,"DELETE");
1516 Perl_magic_sizepack(pTHX_ SV *sv, MAGIC *mg)
1524 if (magic_methcall(sv, mg, "FETCHSIZE", G_SCALAR, 2, NULL)) {
1525 sv = *PL_stack_sp--;
1526 retval = (U32) SvIV(sv)-1;
1535 Perl_magic_wipepack(pTHX_ SV *sv, MAGIC *mg)
1542 XPUSHs(SvTIED_obj(sv, mg));
1552 Perl_magic_nextpack(pTHX_ SV *sv, MAGIC *mg, SV *key)
1562 PUSHs(SvTIED_obj(sv, mg));
1577 Perl_magic_existspack(pTHX_ SV *sv, MAGIC *mg)
1579 return magic_methpack(sv,mg,"EXISTS");
1618 Perl_magic_setdbline(pTHX_ SV *sv, MAGIC *mg)
1627 i = SvTRUE(sv);
1641 Perl_magic_getarylen(pTHX_ SV *sv, MAGIC *mg)
1643 sv_setiv(sv, AvFILL((AV*)mg->mg_obj) + PL_curcop->cop_arybase);
1648 Perl_magic_setarylen(pTHX_ SV *sv, MAGIC *mg)
1650 av_fill((AV*)mg->mg_obj, SvIV(sv) - PL_curcop->cop_arybase);
1655 Perl_magic_getpos(pTHX_ SV *sv, MAGIC *mg)
1657 SV* lsv = LvTARG(sv);
1665 sv_setiv(sv, i + PL_curcop->cop_arybase);
1669 (void)SvOK_off(sv);
1674 Perl_magic_setpos(pTHX_ SV *sv, MAGIC *mg)
1676 SV* lsv = LvTARG(sv);
1686 if (!SvOK(sv))
1691 else if (!SvOK(sv)) {
1697 pos = SvIV(sv) - PL_curcop->cop_arybase;
1726 Perl_magic_getglob(pTHX_ SV *sv, MAGIC *mg)
1728 if (SvFAKE(sv)) { /* FAKE globs can get coerced */
1729 SvFAKE_off(sv);
1730 gv_efullname3(sv,((GV*)sv), "*");
1731 SvFAKE_on(sv);
1734 gv_efullname3(sv,((GV*)sv), "*"); /* a gv value, be nice */
1739 Perl_magic_setglob(pTHX_ SV *sv, MAGIC *mg)
1745 if (!SvOK(sv))
1747 s = SvPV(sv, n_a);
1751 if (sv == (SV*)gv)
1753 if (GvGP(sv))
1754 gp_free((GV*)sv);
1755 GvGP(sv) = gp_ref(GvGP(gv));
1760 Perl_magic_getsubstr(pTHX_ SV *sv, MAGIC *mg)
1763 SV *lsv = LvTARG(sv);
1765 I32 offs = LvTARGOFF(sv);
1766 I32 rem = LvTARGLEN(sv);
1774 sv_setpvn(sv, tmps + offs, (STRLEN)rem);
1776 SvUTF8_on(sv);
1781 Perl_magic_setsubstr(pTHX_ SV *sv, MAGIC *mg)
1784 char *tmps = SvPV(sv, len);
1785 SV *lsv = LvTARG(sv);
1786 I32 lvoff = LvTARGOFF(sv);
1787 I32 lvlen = LvTARGLEN(sv);
1789 if (DO_UTF8(sv)) {
1808 Perl_magic_gettaint(pTHX_ SV *sv, MAGIC *mg)
1811 ((mg->mg_len & 2) && mg->mg_obj == sv)); /* kludge */
1816 Perl_magic_settaint(pTHX_ SV *sv, MAGIC *mg)
1832 Perl_magic_getvec(pTHX_ SV *sv, MAGIC *mg)
1834 SV *lsv = LvTARG(sv);
1837 (void)SvOK_off(sv);
1841 sv_setuv(sv, do_vecget(lsv, LvTARGOFF(sv), LvTARGLEN(sv)));
1846 Perl_magic_setvec(pTHX_ SV *sv, MAGIC *mg)
1848 do_vecset(sv); /* XXX slurp this routine */
1853 Perl_magic_getdefelem(pTHX_ SV *sv, MAGIC *mg)
1856 if (LvTARGLEN(sv)) {
1858 SV *ahv = LvTARG(sv);
1871 AV* av = (AV*)LvTARG(sv);
1872 if ((I32)LvTARGOFF(sv) <= AvFILL(av))
1873 targ = AvARRAY(av)[LvTARGOFF(sv)];
1877 SvREFCNT_dec(LvTARG(sv));
1878 LvTARG(sv) = SvREFCNT_inc(targ);
1879 LvTARGLEN(sv) = 0;
1886 targ = LvTARG(sv);
1887 sv_setsv(sv, targ ? targ : &PL_sv_undef);
1892 Perl_magic_setdefelem(pTHX_ SV *sv, MAGIC *mg)
1894 if (LvTARGLEN(sv))
1895 vivify_defelem(sv);
1896 if (LvTARG(sv)) {
1897 sv_setsv(LvTARG(sv), sv);
1898 SvSETMAGIC(LvTARG(sv));
1904 Perl_vivify_defelem(pTHX_ SV *sv)
1909 if (!LvTARGLEN(sv) || !(mg = mg_find(sv, PERL_MAGIC_defelem)))
1912 SV *ahv = LvTARG(sv);
1928 AV* av = (AV*)LvTARG(sv);
1929 if ((I32)LvTARGLEN(sv) < 0 && (I32)LvTARGOFF(sv) > AvFILL(av))
1930 LvTARG(sv) = Nullsv; /* array can't be extended */
1932 SV** svp = av_fetch(av, LvTARGOFF(sv), TRUE);
1934 Perl_croak(aTHX_ PL_no_aelem, (I32)LvTARGOFF(sv));
1938 SvREFCNT_dec(LvTARG(sv));
1939 LvTARG(sv) = value;
1940 LvTARGLEN(sv) = 0;
1947 Perl_magic_killbackrefs(pTHX_ SV *sv, MAGIC *mg)
1969 Perl_magic_setmglob(pTHX_ SV *sv, MAGIC *mg)
1972 SvSCREAM_off(sv);
1977 Perl_magic_setbm(pTHX_ SV *sv, MAGIC *mg)
1979 sv_unmagic(sv, PERL_MAGIC_bm);
1980 SvVALID_off(sv);
1985 Perl_magic_setfm(pTHX_ SV *sv, MAGIC *mg)
1987 sv_unmagic(sv, PERL_MAGIC_fm);
1988 SvCOMPILED_off(sv);
1993 Perl_magic_setuvar(pTHX_ SV *sv, MAGIC *mg)
1998 (*uf->uf_set)(aTHX_ uf->uf_index, sv);
2003 Perl_magic_setregexp(pTHX_ SV *sv, MAGIC *mg)
2005 sv_unmagic(sv, PERL_MAGIC_qr);
2010 Perl_magic_freeregexp(pTHX_ SV *sv, MAGIC *mg)
2019 Perl_magic_setcollxfrm(pTHX_ SV *sv, MAGIC *mg)
2036 Perl_magic_setutf8(pTHX_ SV *sv, MAGIC *mg)
2045 Perl_magic_set(pTHX_ SV *sv, MAGIC *mg)
2052 sv_setsv(PL_bodytarget, sv);
2055 PL_minus_c = (bool)(SvIOK(sv) ? SvIVX(sv) : sv_2iv(sv));
2060 s = SvPV_nolen(sv);
2064 PL_debug = (SvIOK(sv) ? SvIVX(sv) : sv_2iv(sv)) | DEBUG_TOP_FLAG;
2070 gMacPerl_OSErr = SvIOK(sv) ? SvIVX(sv) : sv_2iv(sv);
2073 set_vaxc_errno(SvIOK(sv) ? SvIVX(sv) : sv_2iv(sv));
2076 SetLastError( SvIV(sv) );
2079 os2_setsyserrno(SvIOK(sv) ? SvIVX(sv) : sv_2iv(sv));
2082 SETERRNO(SvIOK(sv) ? SvIVX(sv) : sv_2iv(sv), 4);
2091 if (SvOK(sv) || SvGMAGICAL(sv)) {
2092 PL_encoding = newSVsv(sv);
2100 PL_maxsysfd = SvIOK(sv) ? SvIVX(sv) : sv_2iv(sv);
2103 PL_hints = SvIOK(sv) ? SvIVX(sv) : sv_2iv(sv);
2108 if (SvOK(sv))
2109 PL_inplace = savepv(SvPV(sv,len));
2119 if (SvOK(sv)) {
2121 PL_osname = savepv(SvPV(sv,len));
2126 PL_compiling.cop_io = newSVsv(sv);
2128 sv_setsv(PL_compiling.cop_io,sv);
2132 PL_perldb = SvIOK(sv) ? SvIVX(sv) : sv_2iv(sv);
2139 PL_basetime = (Time_t)(SvNOK(sv) ? SvNVX(sv) : sv_2nv(sv));
2141 PL_basetime = (Time_t)(SvIOK(sv) ? SvIVX(sv) : sv_2iv(sv));
2147 i = SvIOK(sv) ? SvIVX(sv) : sv_2iv(sv);
2154 if (!SvPOK(sv) && PL_localizing) {
2155 sv_setpvn(sv, WARN_NONEstring, WARNsize);
2163 char * ptr = (char*)SvPV(sv, len) ;
2170 else if (isWARN_on(sv, WARN_ALL) && !any_fatals) {
2176 PL_compiling.cop_warnings = newSVsv(sv) ;
2178 sv_setsv(PL_compiling.cop_warnings, sv);
2192 else if (SvOK(sv) && GvIO(PL_last_in_gv))
2193 IoLINES(GvIOp(PL_last_in_gv)) = SvIV(sv);
2197 IoTOP_NAME(GvIOp(PL_defoutgv)) = s = savepv(SvPV(sv,len));
2202 IoFMT_NAME(GvIOp(PL_defoutgv)) = s = savepv(SvPV(sv,len));
2206 IoPAGE_LEN(GvIOp(PL_defoutgv)) = (SvIOK(sv) ? SvIVX(sv) : sv_2iv(sv));
2209 IoLINES_LEFT(GvIOp(PL_defoutgv)) = (SvIOK(sv) ? SvIVX(sv) : sv_2iv(sv));
2214 IoPAGE(GvIOp(PL_defoutgv)) = (SvIOK(sv) ? SvIVX(sv) : sv_2iv(sv));
2221 if ((SvIOK(sv) ? SvIVX(sv) : sv_2iv(sv)) == 0)
2234 i = SvIOK(sv) ? SvIVX(sv) : sv_2iv(sv);
2239 PL_rs = newSVsv(sv);
2244 if (SvOK(sv) || SvGMAGICAL(sv)) {
2245 PL_ors_sv = newSVsv(sv);
2254 if (SvOK(sv) || SvGMAGICAL(sv)) {
2255 PL_ofs_sv = newSVsv(sv);
2264 PL_ofmt = savepv(SvPV(sv,len));
2267 PL_compiling.cop_arybase = SvIOK(sv) ? SvIVX(sv) : sv_2iv(sv);
2272 PL_statusvalue = LvTARGOFF(sv);
2273 PL_statusvalue_vms = LvTARGLEN(sv);
2279 STATUS_NATIVE_SET((U32)(SvIOK(sv) ? SvIVX(sv) : sv_2iv(sv)));
2282 STATUS_POSIX_SET(SvIOK(sv) ? SvIVX(sv) : sv_2iv(sv));
2291 SETERRNO(SvIOK(sv) ? SvIVX(sv) : SvOK(sv) ? sv_2iv(sv) : 0,
2292 (SvIV(sv) == EVMSERR) ? 4 : PERL_VMS_BANG);
2296 PL_uid = SvIOK(sv) ? SvIVX(sv) : sv_2iv(sv);
2328 PL_euid = SvIOK(sv) ? SvIVX(sv) : sv_2iv(sv);
2355 PL_gid = SvIOK(sv) ? SvIVX(sv) : sv_2iv(sv);
2384 char *p = SvPV(sv, len);
2409 PL_egid = SvIOK(sv) ? SvIVX(sv) : sv_2iv(sv);
2437 PL_chopset = SvPV_force(sv,len);
2447 s = SvPV(sv, len);
2469 s = SvPV(sv, len);
2475 s = SvPV_force(sv,len);
2500 sv_setsv(thr->errsv, sv);
2509 Perl_magic_mutexfree(pTHX_ SV *sv, MAGIC *mg)
2513 PTR2UV(thr), PTR2UV(sv)));
2556 SV *sv = Nullsv, *tSv = PL_Sv;
2607 sv = SvREFCNT_inc(PL_psig_name[sig]);
2610 sig_sv = sv;
2613 sv = sv_newmortal();
2614 sv_setpv(sv,PL_sig_name[sig]);
2619 PUSHs(sv);
2654 SvREFCNT_dec(sv);
2667 SV* sv = mgs->mgs_sv;
2669 if (!sv)
2672 if (SvTYPE(sv) >= SVt_PVMG && SvMAGIC(sv))
2675 SvFLAGS(sv) |= mgs->mgs_flags;
2677 mg_magical(sv);
2678 if (SvGMAGICAL(sv))
2679 SvFLAGS(sv) &= ~(SVf_IOK|SVf_NOK|SVf_POK);