Searched defs:tmpsv (Results 1 - 8 of 8) sorted by relevance
| /osnet-11/usr/src/cmd/perl/5.8.4/distrib/ |
| H A D | dump.c | 353 SV *tmpsv = newSVpvn("", 0); local
355 sv_catpv(tmpsv, ",USED");
357 sv_catpv(tmpsv, ",TAINTED");
359 sv_catpv(tmpsv, ",ONCE");
362 sv_catpv(tmpsv, ",SCANFIRST");
365 sv_catpv(tmpsv, ",ALL");
367 sv_catpv(tmpsv, ",SKIPWHITE");
369 sv_catpv(tmpsv, ",CONST");
371 sv_catpv(tmpsv, ",KEEP");
373 sv_catpv(tmpsv, ",GLOBA
437 SV *tmpsv = newSVpvn("", 0); local
468 SV *tmpsv = newSVpvn("", 0); local
[all...] |
| H A D | pp_sort.c | 1758 SV *tmpsv; local
1759 tryCALL_AMAGICbin(a,b,ncmp,&tmpsv);
1760 if (tmpsv) {
1763 if (SvIOK(tmpsv)) {
1764 I32 i = SvIVX(tmpsv);
1769 d = SvNV(tmpsv);
1780 SV *tmpsv; local
1781 tryCALL_AMAGICbin(a,b,ncmp,&tmpsv);
1782 if (tmpsv) {
1785 if (SvIOK(tmpsv)) {
1802 SV *tmpsv; local
1824 SV *tmpsv; local
[all...] |
| H A D | pp.c | 3235 SV *tmpsv; local
3238 tmpsv = sv_2mortal(newSVsv(argsv));
3239 s = (U8*)sv_recode_to_utf8(tmpsv, PL_encoding);
3240 argsv = tmpsv;
3828 SV *tmpsv; local
3842 tmpsv = POPs;
3845 if (hv_exists_ent(hv, tmpsv, 0))
3850 if (av_exists((AV*)hv, SvIV(tmpsv)))
3853 else if (avhv_exists_ent((AV*)hv, tmpsv, 0)) /* pseudo-hash element */
|
| H A D | pp_sys.c | 425 SV *tmpsv; local
431 tmpsv = TARG;
435 tmpsv = TOPs;
437 tmps = SvPV(tmpsv, len);
443 tmpsv = error;
444 tmps = SvPV(tmpsv, len);
447 tmpsv = sv_2mortal(newSVpvn("Warning: something's wrong", 26));
449 Perl_warn(aTHX_ "%"SVf, tmpsv);
457 SV *tmpsv; local
466 tmpsv
1288 SV *tmpsv = sv_newmortal(); local
3651 SV *tmpsv = sv_newmortal(); local
[all...] |
| H A D | op.c | 109 SV* tmpsv = sv_newmortal(); local
110 gv_efullname3(tmpsv, gv, Nullch);
111 return SvPV(tmpsv,n_a);
|
| H A D | toke.c | 2454 SV *tmpsv = av_shift(PL_preambleav); local
2455 sv_catsv(PL_linestr, tmpsv);
2457 sv_free(tmpsv);
|
| H A D | util.c | 2575 SV *tmpsv = sv_newmortal(); local
2588 sv_setpv(tmpsv, ".");
2590 sv_setpvn(tmpsv, a, fa - a);
2591 if (PerlLIO_stat(SvPVX(tmpsv), &tmpstatbuf1) < 0)
2594 sv_setpv(tmpsv, ".");
2596 sv_setpvn(tmpsv, b, fb - b);
2597 if (PerlLIO_stat(SvPVX(tmpsv), &tmpstatbuf2) < 0)
|
| H A D | sv.c | 3371 SV* tmpsv; local
3372 if (SvAMAGIC(sv) && (tmpsv=AMG_CALLun(sv,bool_)) &&
3373 (!SvROK(tmpsv) || (SvRV(tmpsv) != SvRV(sv))))
3374 return (bool)SvTRUE(tmpsv);
7262 SV *tmpsv; local
7264 tmpsv = NEWSV(704,0);
7265 gv_efullname3(tmpsv, gv, Nullch);
7270 newSVOP(OP_CONST, 0, tmpsv),
|
Completed in 123 milliseconds