X-Git-Url: https://perl5.git.perl.org/perl5.git/blobdiff_plain/ff4fdc72453c67f33d479da9d24a5242bf4ad5ba..c96939e471cb3942b61ec7b103b0449a9fde922d:/regcomp.c

diff --git a/regcomp.c b/regcomp.c
index 71084f1..d8260e2 100644
--- a/regcomp.c
+++ b/regcomp.c
@@ -1028,7 +1028,9 @@ S_cl_or(const RExC_state_t *pRExC_state, struct regnode_charclass_class *cl, con
 	    /* OR char bitmap and class bitmap separately */
 	    for (i = 0; i < ANYOF_BITMAP_SIZE; i++)
 		cl->bitmap[i] |= or_with->bitmap[i];
-            ANYOF_CLASS_OR(or_with, cl);
+            if (or_with->flags & ANYOF_CLASS) {
+                ANYOF_CLASS_OR(or_with, cl);
+            }
 	}
 	else { /* XXXX: logic is complicated, leave it along for a moment. */
 	    cl_anything(pRExC_state, cl);