In perl.git, the branch smoke-me/khw-lexact has been updated <https://perl5.git.perl.org/perl.git/commitdiff/0815f5d3102b0250013fcb8f47623a7aad9de645?hp=eb8f0ab482110da549e2c58a1c05a6ce1c0b6246>
- Log ----------------------------------------------------------------- commit 0815f5d3102b0250013fcb8f47623a7aad9de645 Author: Karl Williamson <[email protected]> Date: Mon Sep 16 16:03:19 2019 -0600 f ----------------------------------------------------------------------- Summary of changes: regcomp.h | 7 +++---- 1 file changed, 3 insertions(+), 4 deletions(-) diff --git a/regcomp.h b/regcomp.h index 0b6844ad11..82240292eb 100644 --- a/regcomp.h +++ b/regcomp.h @@ -348,10 +348,9 @@ struct regnode_ssc { #define NODE_SZ_STR(p) (STR_SZ(STR_LEN(p))+1) #define setSTR_LEN(p,v) \ STMT_START{ \ - if (OP(p) == LEXACT) { \ - ((struct regnode_string *)p)->str_len = ((v) & 0xFF); \ - ((struct regnode_string *)p)->string[0] = (((v) >> 8) & 0xFF); \ - } else STR_LENs(p) = v; \ + ((struct regnode_string *)p)->str_len = ((v) & 0xFF); \ + if (OP(p) == LEXACT) \ + ((struct regnode_string *)p)->string[0] = ((v) >> 8); \ } STMT_END #undef NODE_ALIGN -- Perl5 Master Repository
