Return a value from PerlIO_{,un}getc

private-msgid: 199704131228.OAA05695@bombur2.uio.no

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