aboutsummaryrefslogtreecommitdiffstats
path: root/main/perl/CVE-2017-12837.patch
blob: e4ec80fca14dde967e18fd440ae8b57edb917ab3 (plain) (blame)
1
2
3
4
5
6
7
8
9
10
11
--- a/regcomp.c
+++ b/regcomp.c
Upstream commit 96c83ed78aeea1a0496dd2b2d935869a822dc8a5
@@ -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);
                         }