diff options
| author | Ilya Zakharevich <ilya@math.berkeley.edu> | 1999-10-24 19:47:45 -0400 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 1999-10-25 08:16:55 +0000 |
| commit | b3c9acc1dea37c675a57f40a88b0c08196d48123 (patch) | |
| tree | 3229f54df3315be26126f1623226d990ccb05dcc /regcomp.c | |
| parent | c82a54e6a750dc8a367ca819b48d5f3b6210486f (diff) | |
| download | perl-b3c9acc1dea37c675a57f40a88b0c08196d48123.tar.gz | |
Missing REx engine patch
To: perl5-porters@perl.org (Mailing list Perl5)
Message-Id: <199910250347.XAA16094@monk.mps.ohio-state.edu>
p4raw-id: //depot/cfgperl@4452
Diffstat (limited to 'regcomp.c')
| -rw-r--r-- | regcomp.c | 7 |
1 files changed, 6 insertions, 1 deletions
@@ -944,7 +944,12 @@ Perl_pregcomp(pTHX_ char *exp, char *xend, PMOP *pm) /* Starting-point info. */ again: - if (OP(first) == EXACT); /* Empty, get anchored substr later. */ + if (PL_regkind[(U8)OP(first) == EXACT]) { + if (OP(first) == EXACT); /* Empty, get anchored substr later. */ + else if ((OP(first) == EXACTF || OP(first) == EXACTFL) + && !UTF) + r->regstclass = first; + } else if (strchr((char*)PL_simple+4,OP(first))) r->regstclass = first; else if (PL_regkind[(U8)OP(first)] == BOUND || |