Change 16073 by jhi@alpha on 2002/04/22 12:59:17
Signedness nit.
Affected files ...
.... //depot/perl/ext/PerlIO/encoding/encoding.xs#6 edit
Differences ...
==== //depot/perl/ext/PerlIO/encoding/encoding.xs#6 (text) ====
Index: perl/ext/PerlIO/encoding/encoding.xs
--- perl/ext/PerlIO/encoding/encoding.xs.~1~ Mon Apr 22 07:15:05 2002
+++ perl/ext/PerlIO/encoding/encoding.xs Mon Apr 22 07:15:05 2002
@@ -288,7 +288,7 @@
}
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;
}
End of Patch.
