diff options
| author | Hugo van der Sanden <hv@crypt.org> | 2001-05-29 01:23:23 +0100 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-05-29 00:21:12 +0000 |
| commit | 355860cee8d59b8c0f2cb04b149d96a34a9015ff (patch) | |
| tree | 7996ed5ad8cb0dcf46cfc83bc28574e95d06c702 | |
| parent | 82d4508f1e378a1fc682f730ff20d4be8c3772e5 (diff) | |
| download | perl-355860cee8d59b8c0f2cb04b149d96a34a9015ff.tar.gz | |
Re: [ID 20010528.007] "\x{" causes panic:constant overflowed allocated space
Message-Id: <200105282323.AAA07930@crypt.compulink.co.uk>
p4raw-id: //depot/perl@10272
| -rw-r--r-- | toke.c | 10 |
1 files changed, 5 insertions, 5 deletions
@@ -1439,14 +1439,14 @@ S_scan_const(pTHX_ char *start) ++s; if (*s == '{') { char* e = strchr(s, '}'); + STRLEN len = 1; /* allow underscores */ + if (!e) { yyerror("Missing right brace on \\x{}"); - e = s; - } - else { - STRLEN len = 1; /* allow underscores */ - uv = (UV)scan_hex(s + 1, e - s - 1, &len); + ++s; + continue; } + uv = (UV)scan_hex(s + 1, e - s - 1, &len); s = e + 1; } else { |