diff options
| author | Yves Orton <demerphq@gmail.com> | 2022-08-03 15:22:22 +0200 |
|---|---|---|
| committer | Yves Orton <demerphq@gmail.com> | 2022-08-06 11:32:34 +0200 |
| commit | 79a585d60bd04a299e28c3f76025b5003fb41ef1 (patch) | |
| tree | 76b2d0b6f270ad82b46318940cf140e43a1f1a6c /reginline.h | |
| parent | e28d2a35331ef4703caf07b4ddea0da27a9d6e6f (diff) | |
| download | perl-79a585d60bd04a299e28c3f76025b5003fb41ef1.tar.gz | |
regex engine - wrap PL_regnode_arg_len_varies with macro REGNODE_ARG_LEN_VARIES()
Diffstat (limited to 'reginline.h')
| -rw-r--r-- | reginline.h | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/reginline.h b/reginline.h index 2da63d9639..db6657fc6a 100644 --- a/reginline.h +++ b/reginline.h @@ -38,7 +38,7 @@ Perl_regnode_after(pTHX_ const regnode *p, const bool varies) const U8 op = OP(p); assert(op < REGNODE_MAX); const regnode *ret = p + NODE_STEP_REGNODE + REGNODE_ARG_LEN(op); - if (varies || PL_regnode_arg_len_varies[op]) + if (varies || REGNODE_ARG_LEN_VARIES(op)) ret += STR_SZ(STR_LEN(p)); return (regnode *)ret; } |