diff options
author | Jarkko Hietaniemi <jhi@iki.fi> | 1999-08-31 14:47:18 +0000 |
---|---|---|
committer | Jarkko Hietaniemi <jhi@iki.fi> | 1999-08-31 14:47:18 +0000 |
commit | 5777a3f731a65118524923178e82baf60ecf3202 (patch) | |
tree | db04d66c1819e69aaebf08c240ec5cea1aeac340 /toke.c | |
parent | f4091fba1bacbb614fefc0a1a724a1f71a8d9e2e (diff) | |
download | perl-5777a3f731a65118524923178e82baf60ecf3202.tar.gz |
\C{} -> \N{} residue.
p4raw-id: //depot/cfgperl@4059
Diffstat (limited to 'toke.c')
-rw-r--r-- | toke.c | 6 |
1 files changed, 3 insertions, 3 deletions
@@ -1385,13 +1385,13 @@ S_scan_const(pTHX_ char *start) char *why = Nullch; if (!e) { - yyerror("Missing right brace on \\C{}"); + yyerror("Missing right brace on \\N{}"); e = s - 1; goto cont_scan; } res = newSVpvn(s + 1, e - s - 1); res = new_constant( Nullch, 0, "charnames", - res, Nullsv, "\\C{...}" ); + res, Nullsv, "\\N{...}" ); str = SvPV(res,len); if (len > e - s + 4) { char *odest = SvPVX(sv); @@ -1406,7 +1406,7 @@ S_scan_const(pTHX_ char *start) s = e + 1; } else - yyerror("Missing braces on \\C{}"); + yyerror("Missing braces on \\N{}"); continue; /* \c is a control character */ |