summaryrefslogtreecommitdiff
path: root/toke.c
diff options
context:
space:
mode:
authorJarkko Hietaniemi <jhi@iki.fi>1999-08-31 14:47:18 +0000
committerJarkko Hietaniemi <jhi@iki.fi>1999-08-31 14:47:18 +0000
commit5777a3f731a65118524923178e82baf60ecf3202 (patch)
treedb04d66c1819e69aaebf08c240ec5cea1aeac340 /toke.c
parentf4091fba1bacbb614fefc0a1a724a1f71a8d9e2e (diff)
downloadperl-5777a3f731a65118524923178e82baf60ecf3202.tar.gz
\C{} -> \N{} residue.
p4raw-id: //depot/cfgperl@4059
Diffstat (limited to 'toke.c')
-rw-r--r--toke.c6
1 files changed, 3 insertions, 3 deletions
diff --git a/toke.c b/toke.c
index f68e97503a..c2d51ed3f2 100644
--- a/toke.c
+++ b/toke.c
@@ -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 */