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
Move the negative key -> utf8 flag conversion out to hv_delete
[perl5.git]
/
utfebcdic.h
diff --git
a/utfebcdic.h
b/utfebcdic.h
index
9659315
..
e47e90d
100644
(file)
--- a/
utfebcdic.h
+++ b/
utfebcdic.h
@@
-339,7
+339,7
@@
END_EXTERN_C
#define UTF8SKIP(s) PL_utf8skip[*(U8*)s]
-/* EBCDIC-happy ways of converting native code to UTF8 */
+/* EBCDIC-happy ways of converting native code to UTF
-
8 */
/* Native to iso-8859-1 */
#define NATIVE_TO_ASCII(ch) PL_e2a[(U8)(ch)]