extend "Unrecognized escape" warning to \8, \9, and \_ as well

(from Hugo van der Sanden)

p4raw-id: //depot/perl@6024

diff --git a/toke.c b/toke.c
index 737c9ae..860e3c1 100644 (file)
--- a/toke.c
+++ b/toke.c
@@ -1377,7 +1377,7 @@ S_scan_const(pTHX_ char *start)
            default:
                {
                    dTHR;
-                   if (ckWARN(WARN_MISC) && isALPHA(*s))
+                   if (ckWARN(WARN_MISC) && isALNUM(*s))
                        Perl_warner(aTHX_ WARN_MISC, 
                               "Unrecognized escape \\%c passed through",
                               *s);