Missing dTHRs added.

p4raw-id: //depot/cfgperl@2591

1 files changed, 10 insertions, 7 deletions

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':