summaryrefslogtreecommitdiff
path: root/ext/PerlIO
diff options
context:
space:
mode:
authorGurusamy Sarathy <gsar@cpan.org>2002-04-26 00:41:39 +0000
committerGurusamy Sarathy <gsar@cpan.org>2002-04-26 00:41:39 +0000
commit7c436af33814ce716234caa65f470fe47c2a0efa (patch)
treee51dccce04c0b8b80a5b9b4734b273846081317e /ext/PerlIO
parent530b72baaecf6b4faf758663fc0fded0f4426004 (diff)
downloadperl-7c436af33814ce716234caa65f470fe47c2a0efa.tar.gz
various signed/unsigned mismatch nits
p4raw-id: //depot/perl@16173
Diffstat (limited to 'ext/PerlIO')
-rw-r--r--ext/PerlIO/encoding/encoding.xs8
1 files changed, 4 insertions, 4 deletions
diff --git a/ext/PerlIO/encoding/encoding.xs b/ext/PerlIO/encoding/encoding.xs
index c35e3b9837..bff16e73f6 100644
--- a/ext/PerlIO/encoding/encoding.xs
+++ b/ext/PerlIO/encoding/encoding.xs
@@ -317,7 +317,7 @@ PerlIOEncode_fill(pTHX_ PerlIO * f)
if (SvLEN(e->dataSV) && SvPVX(e->dataSV)) {
Safefree(SvPVX(e->dataSV));
}
- if (use > e->base.bufsiz) {
+ if (use > (SSize_t)e->base.bufsiz) {
if (e->flags & NEEDS_LINES) {
/* Have to grow buffer */
e->base.bufsiz = use;
@@ -427,7 +427,7 @@ PerlIOEncode_flush(pTHX_ PerlIO * f)
PUTBACK;
s = SvPV(str, len);
count = PerlIO_write(PerlIONext(f),s,len);
- if (count != len) {
+ if ((STRLEN)count != len) {
code = -1;
}
FREETMPS;
@@ -447,7 +447,7 @@ PerlIOEncode_flush(pTHX_ PerlIO * f)
if (e->dataSV && SvCUR(e->dataSV)) {
s = SvPV(e->dataSV, len);
count = PerlIO_unread(PerlIONext(f),s,len);
- if (count != len) {
+ if ((STRLEN)count != len) {
code = -1;
}
}
@@ -478,7 +478,7 @@ PerlIOEncode_flush(pTHX_ PerlIO * f)
PUTBACK;
s = SvPV(str, len);
count = PerlIO_unread(PerlIONext(f),s,len);
- if (count != len) {
+ if ((STRLEN)count != len) {
code = -1;
}
FREETMPS;