develooper Front page | perl.perl5.changes | Postings from September 2019

[perl.git] branch smoke-me/khw-lexact updated.v5.31.3-189-g0815f5d310

From:
Karl Williamson
Date:
September 16, 2019 22:03
Subject:
[perl.git] branch smoke-me/khw-lexact updated.v5.31.3-189-g0815f5d310
Message ID:
E1i9z5k-0000rw-AV@git.dc.perl.space
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 <khw@cpan.org>
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



nntp.perl.org: Perl Programming lists via nntp and http.
Comments to Ask Bjørn Hansen at ask@perl.org | Group listing | About