Lines Matching defs:regcomp

5157                  |regcmaybe|regcreset|regcomp|qr|subst|substcont|trans
6307 sub regcomp {
6335     return (($self->regcomp($op, $cx, 0))[0]);
6393 # the regcomp op’s kids:
6440     } elsif ($kid->name ne 'regcomp') {
6442             # split has other kids, not just regcomp
6446             carp("found ".$kid->name." where regcomp expected");
6449 	($re, $quote) = $self->regcomp($kid, 21);
6451     if ($have_kid and $kid->name eq 'regcomp') {
6498     $kid = $kid->sibling if $kid->name eq 'regcomp';
6599 	($re) = $self->regcomp($kid, 1);