This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
extend "Unrecognized escape" warning to \8, \9, and \_ as well
[perl5.git] / toke.c
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);