Lines Matching defs:sv
498 SV *sv = (svp ? *svp : &PL_sv_undef);
500 if (!lval && SvGMAGICAL(sv)) /* see note in pp_helem() */
501 sv = sv_mortalcopy(sv);
502 PUSHs(sv);
524 SV* sv = sv_newmortal();
525 sv_upgrade(sv, SVt_PVLV);
526 LvTYPE(sv) = '/';
527 Copy(&PL_op, &LvTARGOFF(sv), 1, OP*);
528 XPUSHs(sv);
643 if (SvROK(sv)) {
647 av = (AV*)SvRV(sv);
665 if (SvTYPE(sv) == SVt_PVAV) {
666 av = (AV*)sv;
682 if (SvTYPE(sv) != SVt_PVGV) {
686 if (SvGMAGICAL(sv)) {
687 mg_get(sv);
688 if (SvROK(sv))
691 if (!SvOK(sv)) {
703 sym = SvPV(sv,len);
722 gv = (GV*)sv;
774 if (SvROK(sv)) {
778 hv = (HV*)SvRV(sv);
796 if (SvTYPE(sv) == SVt_PVHV || SvTYPE(sv) == SVt_PVAV) {
797 hv = (HV*)sv;
813 if (SvTYPE(sv) != SVt_PVGV) {
817 if (SvGMAGICAL(sv)) {
818 mg_get(sv);
819 if (SvROK(sv))
822 if (!SvOK(sv)) {
834 sym = SvPV(sv,len);
853 gv = (GV*)sv;
985 register SV *sv;
1007 if ((sv = *relem)) {
1009 *relem = sv_mortalcopy(sv);
1021 sv = *lelem++;
1022 switch (SvTYPE(sv)) {
1024 ary = (AV*)sv;
1044 sv = NEWSV(28,0);
1046 sv_setsv(sv,*relem);
1047 *(relem++) = sv;
1048 didstore = av_store(ary,i++,sv);
1050 if (SvSMAGICAL(sv))
1051 mg_set(sv);
1053 sv_2mortal(sv);
1061 hash = (HV*)sv;
1069 sv = *(relem++);
1071 sv = &PL_sv_no, relem++;
1076 if (gimme != G_VOID && hv_exists_ent(hash, sv, 0))
1079 didstore = hv_store_ent(hash,sv,tmpstr,0);
1095 if (SvIMMORTAL(sv)) {
1101 sv_setsv(sv, *relem);
1102 *(relem++) = sv;
1105 sv_setsv(sv, &PL_sv_undef);
1106 SvSETMAGIC(sv);
1213 SV *sv = newSVrv(rv, "Regexp");
1216 sv_magic(sv,(SV*)ReREFCNT_inc(PM_GETRE(pm)), PERL_MAGIC_qr,0,0);
1477 register SV *sv;
1553 sv = TARG;
1554 if (SvROK(sv))
1555 sv_unref(sv);
1556 (void)SvUPGRADE(sv, SVt_PV);
1557 tmplen = SvLEN(sv); /* remember if already alloced */
1558 if (!tmplen && !SvREADONLY(sv))
1559 Sv_Grow(sv, 80); /* try short-buffering it */
1561 if (type == OP_RCATLINE && SvOK(sv)) {
1562 if (!SvPOK(sv)) {
1564 (void)SvPV_force(sv, n_a);
1566 offset = SvCUR(sv);
1570 sv = sv_2mortal(NEWSV(57, 80));
1575 #define MAYBE_TAINT_LINE(io, sv) \
1578 SvTAINTED_on(sv); \
1582 #define SNARF_EOF(gimme,rs,io,sv) \
1583 (gimme != G_SCALAR || SvCUR(sv) \
1588 if (!sv_gets(sv, fp, offset)
1590 || SNARF_EOF(gimme, PL_rs, io, sv)
1616 MAYBE_TAINT_LINE(io, sv);
1619 MAYBE_TAINT_LINE(io, sv);
1622 SvSETMAGIC(sv);
1624 XPUSHs(sv);
1628 if (SvCUR(sv) > 0 && SvCUR(PL_rs) > 0) {
1629 tmps = SvEND(sv) - 1;
1632 SvCUR(sv)--;
1635 for (tmps = SvPVX(sv); *tmps; tmps++)
1639 if (*tmps && PerlLIO_lstat(SvPVX(sv), &PL_statbuf) < 0) {
1643 } else if (SvUTF8(sv)) { /* OP_READLINE, OP_RCATLINE */
1644 U8 *s = (U8*)SvPVX(sv) + offset;
1645 STRLEN len = SvCUR(sv) - offset;
1653 f < (U8*)SvEND(sv) ? *f : 0);
1656 if (SvLEN(sv) - SvCUR(sv) > 20) {
1657 SvLEN_set(sv, SvCUR(sv)+1);
1658 Renew(SvPVX(sv), SvLEN(sv), char);
1660 sv = sv_2mortal(NEWSV(58, 80));
1663 else if (gimme == G_SCALAR && !tmplen && SvLEN(sv) - SvCUR(sv) > 80) {
1665 if (SvCUR(sv) < 60)
1666 SvLEN_set(sv, 80);
1668 SvLEN_set(sv, SvCUR(sv)+40); /* allow some slop */
1669 Renew(SvPVX(sv), SvLEN(sv), char);
1705 SV *sv;
1773 sv = (svp ? *svp : &PL_sv_undef);
1780 if (!lval && SvGMAGICAL(sv))
1781 sv = sv_mortalcopy(sv);
1782 PUSHs(sv);
1846 SV* sv;
1917 sv = *svp;
1919 sv = Nullsv;
1922 sv = AvARRAY(av)[++cx->blk_loop.iterix];
1924 if (sv && SvREFCNT(sv) == 0) {
1929 if (sv)
1930 SvTEMP_off(sv);
1932 sv = &PL_sv_undef;
1933 if (av != PL_curstack && sv == &PL_sv_undef) {
1950 sv = (SV*)lv;
1953 *itersvp = SvREFCNT_inc(sv);
2314 SV *sv;
2330 sv = SvREFCNT_inc(TOPs); /* FREETMPS could clobber it */
2332 *MARK = sv_mortalcopy(sv);
2333 SvREFCNT_dec(sv);
2357 POPSUB(cx,sv); /* Stack values are safe: release CV and @_ ... */
2360 LEAVESUB(sv);
2374 SV *sv;
2415 POPSUB(cx,sv);
2417 LEAVESUB(sv);
2427 POPSUB(cx,sv);
2429 LEAVESUB(sv);
2443 POPSUB(cx,sv);
2445 LEAVESUB(sv);
2460 POPSUB(cx,sv);
2462 LEAVESUB(sv);
2486 sv = SvREFCNT_inc(TOPs); /* FREETMPS could clobber it */
2488 *MARK = sv_mortalcopy(sv);
2489 SvREFCNT_dec(sv);
2515 POPSUB(cx,sv); /* Stack values are safe: release CV and @_ ... */
2518 LEAVESUB(sv);
2570 if (!sv)
2572 switch (SvTYPE(sv)) {
2574 if (!SvROK(sv)) {
2578 if (sv == &PL_sv_yes) { /* unfound import, ignore */
2583 if (SvGMAGICAL(sv)) {
2584 mg_get(sv);
2585 if (SvROK(sv))
2587 sym = SvPOKp(sv) ? SvPVX(sv) : Nullch;
2590 sym = SvPV(sv, n_a);
2600 SV **sp = &sv; /* Used in tryAMAGICunDEREF macro. */
2603 cv = (CV*)SvRV(sv);
2611 cv = (CV*)sv;
2614 if (!(cv = GvCVu((GV*)sv)))
2615 cv = sv_2cv(sv, &stash, &gv, FALSE);
2662 cv = get_db_sub(&sv, cv);
2680 sv = *(PL_stack_base + TOPMARK + 1);
2684 || !(sv = AvARRAY(av)[0]))
2690 if (SvROK(sv))
2691 sv = SvRV(sv);
2694 char *stashname = SvPV(sv, len);
2695 sv = (SV*)gv_stashpvn(stashname, len, TRUE);
2699 sv = (SV*)cv;
2702 mg = condpair_magic(sv);
2711 thr, sv));
2713 SAVEDESTRUCTOR_X(Perl_unlock_condpair, sv);
2986 SV *sv;
3015 sv = (svp ? *svp : &PL_sv_undef);
3016 if (!lval && SvGMAGICAL(sv)) /* see note in pp_helem() */
3017 sv = sv_mortalcopy(sv);
3018 PUSHs(sv);
3023 Perl_vivify_ref(pTHX_ SV *sv, U32 to_what)
3025 if (SvGMAGICAL(sv))
3026 mg_get(sv);
3027 if (!SvOK(sv)) {
3028 if (SvREADONLY(sv))
3030 if (SvTYPE(sv) < SVt_RV)
3031 sv_upgrade(sv, SVt_RV);
3032 else if (SvTYPE(sv) >= SVt_PV) {
3033 (void)SvOOK_off(sv);
3034 Safefree(SvPVX(sv));
3035 SvLEN(sv) = SvCUR(sv) = 0;
3039 SvRV(sv) = NEWSV(355,0);
3042 SvRV(sv) = (SV*)newAV();
3045 SvRV(sv) = (SV*)newHV();
3048 SvROK_on(sv);
3049 SvSETMAGIC(sv);
3056 SV* sv = TOPs;
3058 if (SvROK(sv)) {
3059 SV* rsv = SvRV(sv);
3066 SETs(method_common(sv, Null(U32*)));
3073 SV* sv = cSVOP_sv;
3074 U32 hash = SvUVX(sv);
3076 XPUSHs(method_common(sv, &hash));
3083 SV* sv;
3094 sv = *(PL_stack_base + TOPMARK + 1);
3096 if (!sv)
3099 if (SvGMAGICAL(sv))
3100 mg_get(sv);
3101 if (SvROK(sv))
3102 ob = (SV*)SvRV(sv);
3109 if(SvOK(sv) && (packname = SvPV(sv, packlen))) {
3111 he = hv_fetch_ent(PL_stashcache, sv, 0, 0);
3118 if (!SvOK(sv) ||
3125 ((UTF8_IS_START(*packname) && DO_UTF8(sv))
3131 SvOK(sv) ? "without a package or object reference"
3137 packsv = sv;