diff options
author | Karl Williamson <khw@cpan.org> | 2017-11-07 15:56:32 -0700 |
---|---|---|
committer | Karl Williamson <khw@cpan.org> | 2017-11-07 15:58:55 -0700 |
commit | 9f8d27b7d21e672ce31e073fdc4c6d8130572c04 (patch) | |
tree | 829b7dbb72c05954d3a0ab9e90dd2eec5ee29ee7 /toke.c | |
parent | 47324b4ed3120b0540af346145c4af021b01dd12 (diff) | |
download | perl-9f8d27b7d21e672ce31e073fdc4c6d8130572c04.tar.gz |
toke.c: Fix wrong use of memrchr
This was a replacement of strchr(), so should not have used the
find-right-most memrchr.
This was spotted by Christian Hansen. I don't know what the
implications are, but thought I should get a fix in immediately.
Diffstat (limited to 'toke.c')
-rw-r--r-- | toke.c | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -585,7 +585,7 @@ S_missingterm(pTHX_ char *s, const STRLEN len) } s = tmpbuf; } - q = my_memrchr(s, '"', len) ? '\'' : '"'; + q = memchr(s, '"', len) ? '\'' : '"'; sv = sv_2mortal(newSVpv(s,0)); if (uni) SvUTF8_on(sv); |