This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
toke.c: use my_memrchr helper for portability [round 2]
authorNicolas R <atoomic@cpan.org>
Mon, 6 Nov 2017 23:10:21 +0000 (16:10 -0700)
committerNicolas R <atoomic@cpan.org>
Mon, 6 Nov 2017 23:10:27 +0000 (16:10 -0700)
compilation broken on darwin using clang

toke.c

diff --git a/toke.c b/toke.c
index 2ebe116..fb720d8 100644 (file)
--- a/toke.c
+++ b/toke.c
@@ -563,7 +563,7 @@ S_missingterm(pTHX_ char *s, const STRLEN len)
     bool uni = FALSE;
     SV *sv;
     if (s) {
     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;
        if (nl)
            *nl = '\0';
        uni = UTF;
@@ -585,7 +585,7 @@ S_missingterm(pTHX_ char *s, const STRLEN len)
        }
        s = tmpbuf;
     }
        }
        s = tmpbuf;
     }
-    q = memrchr(s, '"', len) ? '\'' : '"';
+    q = my_memrchr(s, '"', len) ? '\'' : '"';
     sv = sv_2mortal(newSVpv(s,0));
     if (uni)
        SvUTF8_on(sv);
     sv = sv_2mortal(newSVpv(s,0));
     if (uni)
        SvUTF8_on(sv);