In perl.git, the branch blead has been updated <https://perl5.git.perl.org/perl.git/commitdiff/cfebc7aabfa8e3d80cbb00af59aea39ecf9f8275?hp=1e1b6d926a0c8361bc2ebd2b6630ac97988335e3>
- Log ----------------------------------------------------------------- commit cfebc7aabfa8e3d80cbb00af59aea39ecf9f8275 Author: Karl Williamson <[email protected]> Date: Wed Aug 21 09:14:05 2019 -0600 inline.h: Return proper value on EBCDIC The final step was missing in the conversion from UTF-EBCDIC to uv. This adds a macro call that expands to its argument on non-EBCDIC platforms, so this commit makes no changes to the compiled binary on those systems. ----------------------------------------------------------------------- Summary of changes: inline.h | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/inline.h b/inline.h index 67fbf851ea..cf813ab1a7 100644 --- a/inline.h +++ b/inline.h @@ -1835,7 +1835,7 @@ S_utf8n_to_uvchr_msgs(const U8 *s, *msgs = NULL; } - return uv; + return UNI_TO_NATIVE(uv); } /* Here is potentially problematic. Use the full mechanism */ -- Perl5 Master Repository
