diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 1998-10-17 13:17:19 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 1998-10-17 13:17:19 +0000 |
| commit | b56ec34489067f612a4e5d2fecae86c5bbfffd5c (patch) | |
| tree | 4cd76f13513d1a6d80609521251f6d9197a31389 /toke.c | |
| parent | 94be4d36b6a9723699dc23390a82363603e14049 (diff) | |
| download | perl-b56ec34489067f612a4e5d2fecae86c5bbfffd5c.tar.gz | |
Integrate mainperl.
p4raw-id: //depot/cfgperl@2005
Diffstat (limited to 'toke.c')
| -rw-r--r-- | toke.c | 4 |
1 files changed, 3 insertions, 1 deletions
@@ -1076,8 +1076,10 @@ scan_const(char *start) if (*s == '{') { char* e = strchr(s, '}'); - if (!e) + if (!e) { yyerror("Missing right brace on \\x{}"); + e = s; + } if (!utf) { dTHR; if (ckWARN(WARN_UTF8)) |