diff options
author | Nicolas R <atoomic@cpan.org> | 2017-11-06 16:10:21 -0700 |
---|---|---|
committer | Nicolas R <atoomic@cpan.org> | 2017-11-06 16:10:27 -0700 |
commit | f88b23d703fbfddd6a4558c86e56bfd96f4377a4 (patch) | |
tree | ef81ffff3b075f1acfd12a67869f80eba8775746 /toke.c | |
parent | f8bb792490baca606d8fb4c7b62bd1c262173b97 (diff) | |
download | perl-f88b23d703fbfddd6a4558c86e56bfd96f4377a4.tar.gz |
toke.c: use my_memrchr helper for portability [round 2]
compilation broken on darwin using clang
Diffstat (limited to 'toke.c')
-rw-r--r-- | toke.c | 4 |
1 files changed, 2 insertions, 2 deletions
@@ -563,7 +563,7 @@ S_missingterm(pTHX_ char *s, const STRLEN len) bool uni = FALSE; SV *sv; if (s) { - char * const nl = (char *) memrchr(s, '\n', len); + char * const nl = (char *) my_memrchr(s, '\n', len); if (nl) *nl = '\0'; uni = UTF; @@ -585,7 +585,7 @@ S_missingterm(pTHX_ char *s, const STRLEN len) } s = tmpbuf; } - q = memrchr(s, '"', len) ? '\'' : '"'; + q = my_memrchr(s, '"', len) ? '\'' : '"'; sv = sv_2mortal(newSVpv(s,0)); if (uni) SvUTF8_on(sv); |