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

/osnet-11/usr/src/cmd/perl/5.8.4/distrib/
H A Dtoke.c1330 char *regparse = s + (s[2] == '{' ? 3 : 4); local
1333 while (count && (c = *regparse)) {
1334 if (c == '\\' && regparse[1])
1335 regparse++;
1340 regparse++;
1342 if (*regparse != ')')
1343 regparse--; /* Leave one char for continuation. */
1344 while (s < regparse)

Completed in 34 milliseconds