Searched refs:namesv (Results 1 - 8 of 8) sorted by relevance
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/ |
H A D | pad.c | 249 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 D | doio.c | 96 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 D | pp_ctl.c | 2960 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 D | op.c | 5321 /* 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 D | pp.c | 160 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 D | Dumper.xs | 338 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 D | Xref.pm | 149 my $namesv = $namelist[$ix]; 150 next if class($namesv) eq "SPECIAL"; 151 my ($type, $name) = $namesv->PV =~ /^(.)([^\0]*)(\0.*)?$/;
|
H A D | CC.pm | 411 # 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