Searched refs:padname (Results 1 - 5 of 5) sorted by relevance

/osnet-11/usr/src/cmd/perl/5.8.4/distrib/ext/B/B/
H A DConcise.pm564 my $padname = (($curcv->PADLIST->ARRAY)[0]->ARRAY)[$h{targ}];
565 if (defined $padname and class($padname) ne "SPECIAL") {
566 $h{targarg} = $padname->PVX;
567 if ($padname->FLAGS & SVf_FAKE) {
574 $fake .= 'a' if $padname->IVX & 1; # PAD_FAKELEX_ANON
575 $fake .= 'm' if $padname->IVX & 2; # PAD_FAKELEX_MULTI
576 $fake .= ':' . $padname->NVX if $curcv->CvFLAGS & CVf_ANON;
581 my $intro = $padname->NVX - $cop_seq_base;
582 my $finish = int($padname
[all...]
H A DDeparse.pm1034 my $var = $self->padname($op->targ);
2628 sub padname { subroutine
2637 return substr($self->padname($op->targ), 1); # skip $/@/%
2643 return $self->maybe_my($op, $cx, $self->padname($op->targ));
2694 $name = $self->padname($op->targ);
2819 my ($op, $cx, $left, $right, $padname) = @_;
2821 unless ($array->name eq $padname) { # Maybe this has been fixed
2824 if ($array->name eq $padname) {
2893 my ($op, $cx, $left, $right, $regname, $padname) = @_;
2907 } elsif ($array->name eq $padname) {
[all...]
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/
H A Dpad.c122 AV *padlist, *padname, *pad, *a0; local
153 padname = newAV();
169 av_store(padname, 0, newSVpvn("@_", 2));
179 av_store(padlist, 0, (SV*)padname);
198 PTR2UV(padname), (UV)flags
H A Dop.c5362 char *padname = local
5364 if (padname)
5368 padname + 1,
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/ext/B/
H A DB.pm652 of a lexical variable from a padname array. Lexical variable names

Completed in 53 milliseconds