Signedness nit.

p4raw-id: //depot/perl@16073

diff --git a/ext/PerlIO/encoding/encoding.xs b/ext/PerlIO/encoding/encoding.xs
index 0d1d59e..a9b7435 100644 (file)
--- a/ext/PerlIO/encoding/encoding.xs
+++ b/ext/PerlIO/encoding/encoding.xs
@@ -288,7 +288,7 @@ PerlIOEncode_fill(pTHX_ PerlIO * f)
            }
            else if (avail > 0) {
                /* No line, but not EOF - append avail to the pending data */
-               sv_catpvn(e->dataSV, ptr, use);
+               sv_catpvn(e->dataSV, (char*)ptr, use);
                PerlIO_set_ptrcnt(n, ptr+use, 0);
                goto retry;
            }