Searched refs:namesv (Results 1 - 8 of 8) sorted by relevance

/osnet-11/usr/src/cmd/perl/5.8.4/distrib/
H A Dpad.c249 SV *namesv = namepad[ix]; local
250 if (namesv && namesv != &PL_sv_undef
251 && *SvPVX(namesv) == '&')
255 SvREFCNT_dec(namesv);
329 SV* namesv = NEWSV(1102, 0); local
340 sv_upgrade(namesv, ourstash ? SVt_PVGV : typestash ? SVt_PVMG : SVt_PVNV);
341 sv_setpv(namesv, name);
344 SvFLAGS(namesv) |= SVpad_TYPED;
345 SvSTASH(namesv)
1093 SV *namesv; local
1195 SV *namesv; local
1370 SV* namesv = (ix <= fname) ? pname[ix] : Nullsv; local
1410 SV* namesv = (ix <= fname) ? pname[ix] : Nullsv; local
1468 SV *namesv = namepad[ix]; local
[all...]
H A Ddoio.c96 SV *namesv; local
196 namesv = sv_2mortal(newSVpvn(name,strlen(name)));
198 svp = &namesv;
423 namesv = sv_2mortal(newSVpvn(type,strlen(type)));
425 svp = &namesv;
457 namesv = sv_2mortal(newSVpvn(type,strlen(type)));
459 svp = &namesv;
531 namesv = sv_2mortal(newSVpvn(type,strlen(type)));
533 svp = &namesv;
H A Dpp_ctl.c2960 SV *namesv = Nullsv; local
3066 namesv = NEWSV(806, 0);
3080 Perl_sv_setpvf(aTHX_ namesv, "/loader/0x%"UVxf"/%s",
3082 tryname = SvPVX(namesv);
3196 Perl_sv_setpvf(aTHX_ namesv, "%s%s", MacPerl_CanonDir(dir, buf1, 0), buf2+(buf2[0] == ':'));
3202 sv_setpv(namesv, unixdir);
3203 sv_catpv(namesv, unixname);
3205 Perl_sv_setpvf(aTHX_ namesv, "%s/%s", dir, name);
3209 tryname = SvPVX(namesv);
3223 SvREFCNT_dec(namesv);
[all...]
H A Dop.c5321 /* SvCUR of a pad namesv can't be trusted
5384 SV *namesv; local
5386 namesv = PAD_SVl(targ);
5387 (void)SvUPGRADE(namesv, SVt_PV);
5389 sv_setpvn(namesv, "$", 1);
5390 sv_catpvn(namesv, name, len);
H A Dpp.c160 SV *namesv = PAD_SV(cUNOP->op_targ); local
161 name = SvPV(namesv, len);
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/ext/Data/Dumper/
H A DDumper.xs338 SV *namesv;
340 namesv = newSVpvn("\\", 1);
341 sv_catpvn(namesv, name, namelen);
344 namesv = newSVpvn("\\", 2);
345 sv_catpvn(namesv, name, namelen);
346 (SvPVX(namesv))[1] = '&';
349 namesv = newSVpvn(name, namelen);
351 av_push(seenentry, namesv);
407 SV *namesv = newSVpvn("${", 2);
408 sv_catpvn(namesv, nam
[all...]
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/ext/B/B/
H A DXref.pm149 my $namesv = $namelist[$ix];
150 next if class($namesv) eq "SPECIAL";
151 my ($type, $name) = $namesv->PV =~ /^(.)([^\0]*)(\0.*)?$/;
H A DCC.pm411 # run off the end of @namelist will make $namesv undefined and we treat
415 my $namesv = $namelist[$ix];
419 my $class = class($namesv);
420 if (!defined($namesv) || $class eq "SPECIAL") {
424 if ($namesv->PV =~ /^\$(.*)_([di])(r?)$/) {

Completed in 768 milliseconds