In perl.git, the branch blead has been updated <http://perl5.git.perl.org/perl.git/commitdiff/25f2e8444d524c6ef7bbc568b393462ae7a14e94?hp=52b9aa85a8c28ddc591b0a7f2b1f8c729075d9a1>
- Log ----------------------------------------------------------------- commit 25f2e8444d524c6ef7bbc568b393462ae7a14e94 Author: Nicholas Clark <[email protected]> Date: Mon Oct 19 11:04:54 2009 +0100 Add two (U8 *) casts to placate C++. ----------------------------------------------------------------------- Summary of changes: ext/XS-APItest/APItest.xs | 4 ++-- 1 files changed, 2 insertions(+), 2 deletions(-) diff --git a/ext/XS-APItest/APItest.xs b/ext/XS-APItest/APItest.xs index 4eac4a6..18d6752 100644 --- a/ext/XS-APItest/APItest.xs +++ b/ext/XS-APItest/APItest.xs @@ -912,9 +912,9 @@ utf16_to_utf8 (sv, ...) /* Mortalise this right now, as we'll be testing croak()s */ dest = sv_2mortal(newSV(len * 3 / 2 + 1)); if (ix) { - utf16_to_utf8_reversed(source, SvPVX(dest), len, &got); + utf16_to_utf8_reversed(source, (U8 *)SvPVX(dest), len, &got); } else { - utf16_to_utf8(source, SvPVX(dest), len, &got); + utf16_to_utf8(source, (U8 *)SvPVX(dest), len, &got); } SvCUR_set(dest, got); SvPVX(dest)[got] = '\0'; -- Perl5 Master Repository
