micropatch

Message-Id: <200201101820.g0AIKw208580@crypt.compulink.co.uk>

p4raw-id: //depot/perl@14174

diff --git a/regcomp.c b/regcomp.c
index 8399899..65b0a5f 100644 (file)
--- a/regcomp.c
+++ b/regcomp.c
@@ -2361,9 +2361,7 @@ S_reg(pTHX_ RExC_state_t *pRExC_state, I32 paren, I32 *flagp)
     }
     else if (paren != '?')             /* Not Conditional */
        ret = br;
-    if (flags&HASWIDTH)
-       *flagp |= HASWIDTH;
-    *flagp |= flags&SPSTART;
+    *flagp |= flags & (SPSTART | HASWIDTH);
     lastbr = br;
     while (*RExC_parse == '|') {
        if (!SIZE_ONLY && RExC_extralen) {