Return a value from PerlIO_{,un}getc
authorHallvard B Furuseth <h.b.furuseth@usit.uio.no>
Sun, 13 Apr 1997 12:28:14 +0000 (14:28 +0200)
committerChip Salzenberg <chip@atlantic.net>
Mon, 14 Apr 1997 12:00:00 +0000 (00:00 +1200)
private-msgid: 199704131228.OAA05695@bombur2.uio.no

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