--- 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;