Missing dTHRs added.

p4raw-id: //depot/cfgperl@2591

diff --git a/regcomp.c b/regcomp.c
index 82d2b8e..19b030f 100644 (file)
--- 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 (file)
--- 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':