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
authorGurusamy Sarathy <gsar@cpan.org>
Sun, 30 Apr 2000 17:50:19 +0000 (17:50 +0000)
committerGurusamy Sarathy <gsar@cpan.org>
Sun, 30 Apr 2000 17:50:19 +0000 (17:50 +0000)
(from Hugo van der Sanden)

p4raw-id: //depot/perl@6024

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);