From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Mon, 22 Apr 2002 12:59:17 +0000 (+0000)
Subject: Signedness nit.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=8994bf69bffe8ea7157fdf1989f5abde04dba937;p=p5sagit%2Fp5-mst-13.2.git

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
--- 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;
 	    }