diff options
| author | Yves Orton <demerphq@gmail.com> | 2006-09-25 22:09:07 +0200 |
|---|---|---|
| committer | Dave Mitchell <davem@fdisolutions.com> | 2006-09-25 22:01:36 +0000 |
| commit | 03363afd3c2c023b9096c021741ecc63bc0de7dd (patch) | |
| tree | f27d40ad2d3d91b064c59e82fc9799526b80d6c0 /regcomp.c | |
| parent | 84da74a7adb7db2354917b83df794f4983438fcd (diff) | |
| download | perl-03363afd3c2c023b9096c021741ecc63bc0de7dd.tar.gz | |
Automate generation of the regmatch() state constants
Subject: Re: Problem with EVAL handling in bleads iterative regex code.
Message-Id: <9b18b3110609251109t4cb1d443y87d7a7dc94fcfc24@mail.gmail.com>
p4raw-id: //depot/perl@28892
Diffstat (limited to 'regcomp.c')
| -rw-r--r-- | regcomp.c | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -7258,7 +7258,7 @@ Perl_regprop(pTHX_ const regexp *prog, SV *sv, const regnode *o) GET_RE_DEBUG_FLAGS_DECL; sv_setpvn(sv, "", 0); - if (OP(o) >= reg_num) /* regnode.type is unsigned */ + if (OP(o) > REGNODE_MAX) /* regnode.type is unsigned */ /* It would be nice to FAIL() here, but this may be called from regexec.c, and it would be hard to supply pRExC_state. */ Perl_croak(aTHX_ "Corrupted regexp opcode"); |