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

(from Hugo van der Sanden)

p4raw-id: //depot/perl@6024

1 files changed, 1 insertions, 1 deletions

diff --git a/toke.c b/toke.c
index 737c9aef89..860e3c1f8c 100644
--- 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);