diff options
| author | Gisle Aas <gisle@aas.no> | 1998-10-14 17:17:44 +0200 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 1998-10-17 04:06:10 +0000 |
| commit | adaeee4954d8cb3ae8468dc301a3a7f6315c644d (patch) | |
| tree | cb5d6265fdebd26a3fd37c06e628bc308f868f0f /toke.c | |
| parent | bb40f870bbd8154ddbcccd483bf0c25730deedb5 (diff) | |
| download | perl-adaeee4954d8cb3ae8468dc301a3a7f6315c644d.tar.gz | |
Core dump from "Missing right brace on \x{}"
Message-ID: <m3iuhn9taf.fsf@furu.g.aas.no>
p4raw-id: //depot/perl@2001
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)) |