X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=perlio.h;h=8d453a597716a45a69bcc3ddebeb22bd77c8ca6d;hb=249edfdff1b2b750e894ee5a0b6cb64d2640ca02;hp=9df9575fc8f76e83e4f02450d826ff837c85ec3a;hpb=f7a92b15d369b78479721e50e5aad6f6d7b1862c;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/perlio.h b/perlio.h
index 9df9575..8d453a5 100644
--- a/perlio.h
+++ b/perlio.h
@@ -45,6 +45,7 @@ extern void PerlIO_init _((void));
 #define PerlIO_putc(f,c)	piStdIO->Putc((f),(c), ErrorNo())
 #define PerlIO_puts(f,s)	piStdIO->Puts((f),(s), ErrorNo())
 #define PerlIO_flush(f)		piStdIO->Flush((f), ErrorNo())
+#define PerlIO_gets(s, n, fp)   piStdIO->Gets((fp), s, n, ErrorNo())
 #define PerlIO_ungetc(f,c)	piStdIO->Ungetc((f),(c), ErrorNo())
 #define PerlIO_fileno(f)	piStdIO->Fileno((f), ErrorNo())
 #define PerlIO_fdopen(f, s)	piStdIO->Fdopen((f),(s), ErrorNo())