regcomp [perl #131582]
authorKarl Williamson <khw@cpan.org>
Wed, 21 Jun 2017 17:33:37 +0000 (11:33 -0600)
committerSteve Hay <steve.m.hay@googlemail.com>
Sun, 10 Sep 2017 11:48:43 +0000 (12:48 +0100)
regcomp.c

index 800b8cd..a489cde 100644 (file)
--- a/regcomp.c
+++ b/regcomp.c
@@ -13318,6 +13318,7 @@ S_regatom(pTHX_ RExC_state_t *pRExC_state, I32 *flagp, U32 depth)
                             goto loopdone;
                         }
                         p = RExC_parse;
+                        RExC_parse = parse_start;
                         if (ender > 0xff) {
                             REQUIRE_UTF8(flagp);
                         }