diff options
author | Karl Williamson <khw@cpan.org> | 2016-08-04 14:07:53 -0600 |
---|---|---|
committer | Karl Williamson <khw@cpan.org> | 2016-08-05 12:56:06 -0600 |
commit | 2aa61ac397079a33eb3c36c2e7c1f41be224c657 (patch) | |
tree | 64690589c86b7f58d89552ff8dbcf2cfb2edaf0d /toke.c | |
parent | 9e9fbcaf153d3c9eb897b5cab54a102632df4c78 (diff) | |
download | perl-2aa61ac397079a33eb3c36c2e7c1f41be224c657.tar.gz |
PATCH: [perl #128738] Large code pt as string delim
The bug here is simply an I32 was used when an IV was needed.
One could argue that there should be that the parser should refuse to
accept something larger than an IV. I chose not to do that, as this is
a deprecated usage, which generates a warning by default and will be a
syntax error anyway in a future release.
Diffstat (limited to 'toke.c')
-rw-r--r-- | toke.c | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -10012,7 +10012,7 @@ S_scan_str(pTHX_ char *start, int keep_bracketed_quoted, int keep_delims, int re char *to; /* current position in the sv's data */ I32 brackets = 1; /* bracket nesting level */ bool has_utf8 = FALSE; /* is there any utf8 content? */ - I32 termcode; /* terminating char. code */ + IV termcode; /* terminating char. code */ U8 termstr[UTF8_MAXBYTES]; /* terminating string */ STRLEN termlen; /* length of terminating string */ line_t herelines; |