diff options
author | Yves Orton <demerphq@gmail.com> | 2023-01-26 03:53:07 +0100 |
---|---|---|
committer | Yves Orton <demerphq@gmail.com> | 2023-03-13 21:26:08 +0800 |
commit | af48a1be21f158a18eb1af0c28a04f9a4f60d981 (patch) | |
tree | 121e2aa8b558141b903d0961d3eca698dbd72b9a /regcomp_debug.c | |
parent | d145af01e2d4aa289de75be69857b583f2e01f0d (diff) | |
download | perl-af48a1be21f158a18eb1af0c28a04f9a4f60d981.tar.gz |
regexec.c - use RXp_LASTPAREN(rex) to access rex->lastparen
This field will be moving to a new struct. Converting this to a macro
will make that move easier.
Diffstat (limited to 'regcomp_debug.c')
-rw-r--r-- | regcomp_debug.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/regcomp_debug.c b/regcomp_debug.c index 8c5065bacd..6ab276155c 100644 --- a/regcomp_debug.c +++ b/regcomp_debug.c @@ -548,7 +548,7 @@ Perl_regprop(pTHX_ const regexp *prog, SV *sv, const regnode *o, const regmatch_ if ( k == REF && reginfo) { U32 n = ARG1u(o); /* which paren pair */ I32 ln = RXp_OFFS_START(prog,n); - if (prog->lastparen < n || ln == -1 || RXp_OFFS_END(prog,n) == -1) + if (RXp_LASTPAREN(prog) < n || ln == -1 || RXp_OFFS_END(prog,n) == -1) Perl_sv_catpvf(aTHX_ sv, ": FAIL"); else if (ln == RXp_OFFS_END(prog,n)) Perl_sv_catpvf(aTHX_ sv, ": ACCEPT - EMPTY STRING"); |