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

/osnet-11/usr/src/cmd/perl/5.8.4/distrib/
H A Dop.c423 PMOP *pmop = HvPMROOT(pmstash); local
425 while (pmop) {
426 if (cPMOPo == pmop) {
428 lastpmop->op_pmnext = pmop->op_pmnext;
430 HvPMROOT(pmstash) = pmop->op_pmnext;
433 lastpmop = pmop;
434 pmop = pmop->op_pmnext;
2642 PMOP *pmop; local
2644 NewOp(1101, pmop,
[all...]
H A Dop.h249 struct pmop { struct
H A Dperl.h1759 typedef struct pmop PMOP;
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/ext/B/B/
H A DCC.pm1492 my $pmop = $op->other;
1493 # warn sprintf("substcont: op = %s, pmop = %s\n",
1494 # peekop($op), peekop($pmop));#debug
1495 # my $pmopsym = objsym($pmop);
1496 my $pmopsym = $pmop->save; # XXX can this recurse?
1498 save_or_restore_lexical_state(${$pmop->pmreplstart});
1500 $pmopsym, label($pmop->pmreplstart));
1502 return $pmop->next;
H A DC.pm822 my $pmop = $REGEXP{$rx};
824 confess "PMOP not found for REGEXP $rx" unless $pmop;
827 my $pmsym = $pmop->save;
1984 loop => \$loopsect, op => \$opsect, pmop => \$pmopsect,

Completed in 57 milliseconds