2 files changed, 11 insertions, 7 deletions
diff --git a/regcomp.c b/regcomp.c
index 82d2b8ef62..19b030f3d9 100644
--- a/regcomp.c
+++ b/regcomp.c
@@ -2104,6 +2104,7 @@ regwhite(char *p, char *e)
 STATIC char*
 regpposixcc(I32 value)
 {
+    dTHR;
     char *posixcc = 0;
 
     if (value == '[' && PL_regcomp_parse + 1 < PL_regxend &&
diff --git a/toke.c b/toke.c
index f91b4cdcc9..fca117b047 100644
--- a/toke.c
+++ b/toke.c
@@ -1089,14 +1089,17 @@ scan_const(char *start)
 		    continue;
 		}
 		/* FALL THROUGH */
-	    /* default action is to copy the quoted character */
 	    default:
-		if (ckWARN(WARN_UNSAFE) && isALPHA(*s))
-		    warner(WARN_UNSAFE, 
-			   "Unrecognized escape \\%c passed through",
-			   *s);
-		*d++ = *s++;
-		continue;
+	        {
+		    dTHR;
+		    if (ckWARN(WARN_UNSAFE) && isALPHA(*s))
+			warner(WARN_UNSAFE, 
+			       "Unrecognized escape \\%c passed through",
+			       *s);
+		    /* default action is to copy the quoted character */
+		    *d++ = *s++;
+		    continue;
+		}
 
 	    /* \132 indicates an octal constant */
 	    case '0': case '1': case '2': case '3':