Searched refs:extralen (Results 1 - 2 of 2) sorted by relevance

/osnet-11/usr/src/cmd/perl/5.8.4/distrib/lib/Text/
H A DBalanced.pm59 my ($extrapos, $extralen) = @_>18 ? splice(@_, -2, 2) : (0,0);
69 if ($extralen) { # CORRECT FILLET
70 my $extra = substr($res[0], $extrapos-$startlen, $extralen, "\n");
73 substr($$textref,$extrapos,$extralen,"\n")} ;
75 pos($$textref) = $remainderpos-$extralen+1; # RESET \G
85 substr($match,$extrapos-$_[0]-$startlen,$extralen,"") if $extralen;
86 my $extra = $extralen
87 ? substr($$textref, $extrapos, $extralen)."\n" : "";
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/
H A Dregcomp.c126 I32 extralen; member in struct:RExC_state_t
154 #define RExC_extralen (pRExC_state->extralen)
1812 If extralen==0, this means that we will not need long jumps. */

Completed in 43 milliseconds