This is a live mirror of the Perl 5 development currently hosted at
https://github.com/perl/perl5
https://perl5.git.perl.org
/
perl5.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
f8bb792
)
toke.c: use my_memrchr helper for portability [round 2]
author
Nicolas R
<atoomic@cpan.org>
Mon, 6 Nov 2017 23:10:21 +0000
(16:10 -0700)
committer
Nicolas R
<atoomic@cpan.org>
Mon, 6 Nov 2017 23:10:27 +0000
(16:10 -0700)
compilation broken on darwin using clang
toke.c
patch
|
blob
|
blame
|
history
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) {
- char * const nl = (char *) memrchr(s, '\n', len);
+ char * const nl = (char *) m
y_m
emrchr(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 = m
y_m
emrchr(s, '"', len) ? '\'' : '"';
sv = sv_2mortal(newSVpv(s,0));
if (uni)
SvUTF8_on(sv);