Signedness nit.

p4raw-id: //depot/perl@16073

1 files changed, 1 insertions, 1 deletions

diff --git a/ext/PerlIO/encoding/encoding.xs b/ext/PerlIO/encoding/encoding.xs
index 0d1d59ea0f..a9b74354d0 100644
--- 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;
 	    }