From: Hallvard B Furuseth <h.b.furuseth@usit.uio.no>
Date: Sun, 13 Apr 1997 12:28:14 +0000 (+0200)
Subject: Return a value from PerlIO_{,un}getc
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=9010f3dde9d2f67a11bc3a0f3506440c77114d6b;p=p5sagit%2Fp5-mst-13.2.git

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
--- 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