X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=perlio.c;h=ffdd3f019774338267ee91dfd0f6c16c6e5a2fd2;hb=10a676f83f541430b63a3192b246bf6f86d3b189;hp=d9b3d81ac311326e44027bba21a7c4f10e69edf8;hpb=662a7e3f419913fcaac63451e3424478903b6e79;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/perlio.c b/perlio.c
index d9b3d81..ffdd3f0 100644
--- a/perlio.c
+++ b/perlio.c
@@ -369,7 +369,7 @@ PerlIO_putc(f,ch)
 PerlIO *f;
 int ch;
 {
- putc(ch,f);
+ return putc(ch,f);
 }
 
 #undef PerlIO_ungetc
@@ -378,25 +378,25 @@ PerlIO_ungetc(f,ch)
 PerlIO *f;
 int ch;
 {
- ungetc(ch,f);
+ return ungetc(ch,f);
 }
 
 #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);
 }