From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Sat, 9 Jan 1999 14:45:24 +0000 (+0000)
Subject: Missing dTHRs added.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=11b8faa4b88ddb655238bb84b542f78345a7d7bb;p=p5sagit%2Fp5-mst-13.2.git

Missing dTHRs added.

p4raw-id: //depot/cfgperl@2591
---

diff --git a/regcomp.c b/regcomp.c
index 82d2b8e..19b030f 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 f91b4cd..fca117b 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':