Lines Matching refs:TARG
76 sv_copypv(TARG,TOPs);
146 if (TARG == right && right != left) {
152 if (TARG != left) {
155 sv_setpvn(TARG, lpv, llen);
157 SvUTF8_on(TARG);
159 SvUTF8_off(TARG);
161 else { /* TARG == left */
164 if (!SvOK(TARG))
169 SvUTF8_off(TARG);
173 if ((SvIOK(right) || SvNOK(right)) && ckWARN(WARN_Y2K) && SvOK(TARG)) {
185 sv_utf8_upgrade_nomg(TARG);
193 sv_catpvn_nomg(TARG, rpv, rlen);
203 XPUSHs(TARG);
510 do_join(TARG, *MARK, MARK, SP);
512 SETs(TARG);
882 TARG = Perl_hv_scalar(aTHX_ hv);
1241 TARG = POPs;
1243 TARG = DEFSV;
1248 s = SvPV(TARG, len);
1256 RX_MATCH_UTF8_set(rx, DO_UTF8(TARG));
1280 if (SvTYPE(TARG) >= SVt_PVMG && SvMAGIC(TARG)) {
1281 MAGIC* mg = mg_find(TARG, PERL_MAGIC_regex_global);
1295 || SvTEMP(TARG) || PL_sawampersand)
1297 if (SvSCREAM(TARG))
1314 DO_UTF8(TARG) == ((rx->reganch & ROPT_UTF8) != 0)) {
1316 s = CALLREG_INTUIT_START(aTHX_ rx, TARG, s, strend, r_flags, NULL);
1325 && !SvROK(TARG)) /* Cannot trust since INTUIT cannot guess ^ */
1328 if (CALLREGEXEC(aTHX_ rx, s, strend, truebase, minmatch, TARG, NULL, r_flags))
1364 if (DO_UTF8(TARG) && is_utf8_string((U8*)s, len))
1371 if (SvTYPE(TARG) >= SVt_PVMG && SvMAGIC(TARG))
1372 mg = mg_find(TARG, PERL_MAGIC_regex_global);
1374 sv_magic(TARG, (SV*)0, PERL_MAGIC_regex_global, Nullch, 0);
1375 mg = mg_find(TARG, PERL_MAGIC_regex_global);
1399 if (SvTYPE(TARG) >= SVt_PVMG && SvMAGIC(TARG))
1400 mg = mg_find(TARG, PERL_MAGIC_regex_global);
1402 sv_magic(TARG, (SV*)0, PERL_MAGIC_regex_global, Nullch, 0);
1403 mg = mg_find(TARG, PERL_MAGIC_regex_global);
1461 if (SvTYPE(TARG) >= SVt_PVMG && SvMAGIC(TARG)) {
1462 MAGIC* mg = mg_find(TARG, PERL_MAGIC_regex_global);
1496 SvSetSV_nosteal(TARG, result);
1542 /* undef TARG, and push that undefined value */
1544 SV_CHECK_THINKFIRST(TARG);
1545 (void)SvOK_off(TARG);
1553 sv = TARG;
1610 SV_CHECK_THINKFIRST(TARG);
1611 (void)SvOK_off(TARG);
1987 TARG = POPs;
1989 TARG = DEFSV;
1993 if (SvFAKE(TARG) && SvREADONLY(TARG))
1994 sv_force_normal(TARG);
1995 if (SvREADONLY(TARG)
1996 || (SvTYPE(TARG) > SVt_PVLV
1997 && !(SvTYPE(TARG) == SVt_PVGV && SvFAKE(TARG))))
2001 s = SvPV(TARG, len);
2002 if (!SvPOKp(TARG) || SvTYPE(TARG) == SVt_PVGV)
2010 RX_MATCH_UTF8_set(rx, DO_UTF8(TARG));
2026 r_flags = (rx->nparens || SvTEMP(TARG) || PL_sawampersand)
2028 if (SvSCREAM(TARG))
2037 s = CALLREG_INTUIT_START(aTHX_ rx, TARG, s, strend, r_flags, NULL);
2057 if (DO_UTF8(TARG) && !doutf8) {
2080 && (!doutf8 || SvUTF8(TARG))) {
2081 if (!CALLREGEXEC(aTHX_ rx, s, strend, orig, 0, TARG, NULL,
2091 s = SvPV_force(TARG, len);
2096 SvSCREAM_off(TARG); /* disable possible screamer */
2113 SvCUR_set(TARG, m - s);
2119 sv_chop(TARG, d-i);
2128 sv_chop(TARG, d);
2132 sv_chop(TARG, d);
2156 TARG, NULL,
2161 SvCUR_set(TARG, d - SvPVX(TARG) + i);
2168 (void)SvPOK_only_UTF8(TARG);
2170 if (SvSMAGICAL(TARG)) {
2172 mg_set(TARG);
2175 SvTAINT(TARG);
2177 SvUTF8_on(TARG);
2182 if (CALLREGEXEC(aTHX_ rx, s, strend, orig, 0, TARG, NULL,
2187 s = SvPV_force(TARG, len);
2193 if (DO_UTF8(TARG))
2226 TARG, NULL, r_flags));
2227 if (doutf8 && !DO_UTF8(TARG))
2232 (void)SvOOK_off(TARG);
2233 if (SvLEN(TARG))
2234 Safefree(SvPVX(TARG));
2235 SvPVX(TARG) = SvPVX(dstr);
2236 SvCUR_set(TARG, SvCUR(dstr));
2237 SvLEN_set(TARG, SvLEN(dstr));
2246 (void)SvPOK_only(TARG);
2248 SvUTF8_on(TARG);
2250 SvSETMAGIC(TARG);
2251 SvTAINT(TARG);