diff options
| author | Dr.Ruud <rvtol+news@isolution.nl> | 2006-06-21 03:58:19 +0200 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2006-06-21 08:15:38 +0000 |
| commit | 86f970540c92c6b7202ca6a4f9d388d9e23a2f27 (patch) | |
| tree | 0a8a26eb659704389d6292ca0064f1d6d423279e /toke.c | |
| parent | 76e843627455c4ad0defcc8bd300dbbccba5b598 (diff) | |
| download | perl-86f970540c92c6b7202ca6a4f9d388d9e23a2f27.tar.gz | |
<toke.c> isALNUM(*s) && *s != '_'
From: "Dr.Ruud" <rvtol+news@isolution.nl>
Message-ID: <20060621000237.24398.qmail@lists.develooper.com>
p4raw-id: //depot/perl@28413
Diffstat (limited to 'toke.c')
| -rw-r--r-- | toke.c | 3 |
1 files changed, 1 insertions, 2 deletions
@@ -1976,8 +1976,7 @@ S_scan_const(pTHX_ char *start) /* FALL THROUGH */ default: { - if (isALNUM(*s) && - *s != '_' && + if ((isALPHA(*s) || isDIGIT(*s)) && ckWARN(WARN_MISC)) Perl_warner(aTHX_ packWARN(WARN_MISC), "Unrecognized escape \\%c passed through", |