| /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.h | 326 SV* tmpsv; \
329 (tmpsv=amagic_call(left, \
334 (void)POPs; set(tmpsv); RETURN; } \
348 SV* tmpsv; \
353 (tmpsv=AMG_CALLun(arg,meth))) {\
355 set(tmpsv); ret; } \
|
| 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 | 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 | 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),
|
| H A D | op.c | 109 SV* tmpsv = sv_newmortal(); local
110 gv_efullname3(tmpsv, gv, Nullch);
111 return SvPV(tmpsv,n_a);
|
| /osnet-11/usr/src/cmd/perl/5.8.4/distrib/ext/B/ |
| H A D | B.xs | 252 SV *tmpsv = sv_newmortal(); /* Temporary SV to feed sv_uni_display */
254 s = sv_uni_display(tmpsv, sv, 8*len, UNI_DISPLAY_QQ);
|
| /osnet-11/usr/src/cmd/perl/5.8.4/distrib/ext/IO/ |
| H A D | IO.xs | 239 SV *tmpsv = NEWSV(999,nfd * sizeof(struct pollfd));
240 struct pollfd *fds = (struct pollfd *)SvPVX(tmpsv);
255 SvREFCNT_dec(tmpsv);
|
| /osnet-11/usr/src/cmd/perl/5.8.4/distrib/ext/B/B/ |
| H A D | C.pm | 1543 SV* tmpsv;
1620 tmpsv = GvSV(tmpgv);
1621 sv_setpv(tmpsv, ${dollar_0});
1622 SvSETMAGIC(tmpsv);
1629 tmpsv = GvSV(tmpgv);
1630 sv_setpv(tmpsv, argv[0]);
1631 SvSETMAGIC(tmpsv);
1638 tmpsv = GvSV(tmpgv);
1640 sv_setpv(tmpsv,"perl.exe");
1642 sv_setpv(tmpsv,"per
[all...] |
| /osnet-11/usr/src/cmd/perl/5.8.4/distrib/ext/Data/Dumper/ |
| H A D | Dumper.xs | 1079 SV *tmpsv = sv_x(aTHX_ Nullsv, " ", 1, SvCUR(name)+3);
1081 sv_catsv(newapad, tmpsv);
1082 SvREFCNT_dec(tmpsv);
|