diff options
| author | Ilya Zakharevich <ilya@math.berkeley.edu> | 1999-08-29 12:46:53 -0400 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 1999-08-30 02:57:05 +0000 |
| commit | 4a2d328fcdc90a0fcbd435b479571aad60159771 (patch) | |
| tree | 462cf5ff96f435b65c4ea7c9cbcc12daf97821a3 /toke.c | |
| parent | d4bea2fb9d94a2ce4ff340ae9eab604f38ab2d31 (diff) | |
| download | perl-4a2d328fcdc90a0fcbd435b479571aad60159771.tar.gz | |
Use \N{named characters} instead of \C.
To: jhi@iki.fi
Cc: larry@wall.org (Larry Wall), Tim.Bunce@ig.co.uk (Tim Bunce),
perl5-porters@perl.org (Mailing list Perl5)
Subject: Re: [PATCH 5.005_58] Named characters in Perl
Message-Id: <199908292046.QAA05510@monk.mps.ohio-state.edu>
p4raw-id: //depot/cfgperl@4052
Diffstat (limited to 'toke.c')
| -rw-r--r-- | toke.c | 6 |
1 files changed, 3 insertions, 3 deletions
@@ -1151,7 +1151,7 @@ S_scan_const(pTHX_ char *start) : UTF; char *leaveit = /* set of acceptably-backslashed characters */ PL_lex_inpat - ? "\\.^$@AGZdDwWsSbBpPXO+*?|()-nrtfeaxcz0123456789[{]} \t\n\r\f\v#" + ? "\\.^$@AGZdDwWsSbBpPXC+*?|()-nrtfeaxcz0123456789[{]} \t\n\r\f\v#" : ""; while (s < send || dorange) { @@ -1372,8 +1372,8 @@ S_scan_const(pTHX_ char *start) } continue; - /* \C{latin small letter a} is a named character */ - case 'C': + /* \N{latin small letter a} is a named character */ + case 'N': ++s; if (*s == '{') { char* e = strchr(s, '}'); |