--- perl-5.22.3/regcomp.c.CVE_2017_12837 2017-10-03 12:48:21.328375009 +0300 +++ perl-5.22.3/regcomp.c 2017-10-03 12:51:10.709193442 +0300 @@ -12370,40 +12370,41 @@ NULL, /* Fail if evaluates to anything other than a single code point */ &ender, /* The returned single code point */ NULL, /* Don't need a count of how many code points */ flagp, depth) ) { if (*flagp & RESTART_UTF8) FAIL("panic: grok_bslash_N set RESTART_UTF8"); /* Here, it wasn't a single code point. Go close * up this EXACTish node. The switch() prior to * this switch handles the other cases */ RExC_parse = p = oldp; goto loopdone; } p = RExC_parse; + RExC_parse = parse_start; if (ender > 0xff) { REQUIRE_UTF8; } break; case 'r': ender = '\r'; p++; break; case 't': ender = '\t'; p++; break; case 'f': ender = '\f'; p++; break; case 'e': ender = ESC_NATIVE; p++; break;