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
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Extract common code to an inline function
[perl5.git]
/
toke.c
diff --git
a/toke.c
b/toke.c
index
96b0274
..
3ce12e2
100644
(file)
--- a/
toke.c
+++ b/
toke.c
@@
-3176,13
+3176,7
@@
S_scan_const(pTHX_ char *start)
for (i = min; i <= max; i++)
#ifdef EBCDIC
if (has_utf8) {
for (i = min; i <= max; i++)
#ifdef EBCDIC
if (has_utf8) {
- const U8 ch = (U8)NATIVE_TO_UTF(i);
- if (UNI_IS_INVARIANT(ch))
- *d++ = (U8)i;
- else {
- *d++ = (U8)UTF8_EIGHT_BIT_HI(ch);
- *d++ = (U8)UTF8_EIGHT_BIT_LO(ch);
- }
+ append_utf8_from_native_byte(i, &d);
}
else
#endif
}
else
#endif