CPAN update (CPAN-1.44_54) from Andreas and

[p5sagit/p5-mst-13.2.git] / toke.c

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