Use SSize_t for values of PerlIO_{read,write}

1 files changed, 4 insertions, 4 deletions

diff --git a/perlio.c b/perlio.c
index d9b3d81ac3..0a0625cfba 100644
--- a/perlio.c
+++ b/perlio.c
@@ -382,21 +382,21 @@ int ch;
 }
 
 #undef PerlIO_read
-int      
+SSize_t
 PerlIO_read(f,buf,count)
 PerlIO *f;
 void *buf;
-size_t count;
+Size_t count;
 {
  return fread(buf,1,count,f);
 }
 
 #undef PerlIO_write
-int      
+SSize_t
 PerlIO_write(f,buf,count)
 PerlIO *f;
 const void *buf;
-size_t count;
+Size_t count;
 {
  return fwrite1(buf,1,count,f);
 }