X-Git-Url: https://perl5.git.perl.org/perl5.git/blobdiff_plain/0d610ac116dfe1f7752682b7e30e8019569d8adb..9b1753cf7072d34b7e4bd1ea60369cbaf80e6152:/perlsdio.h

diff --git a/perlsdio.h b/perlsdio.h
index cb25577..3518361 100644
--- a/perlsdio.h
+++ b/perlsdio.h
@@ -47,10 +47,9 @@ END_EXTERN_C
             ((*(f))->_ptr > (*(f))->_base)) ? \
             ((*(f))->_cnt++, *(--(*(f))->_ptr) = (c)) : decc$ungetc(c,f)))
 #else
-#    define PerlIO_ungetc(f,c)		ungetc(c,f)
+#    define PerlIO_ungetc(f,c)		PerlSIO_ungetc(c,f)
 #endif
 #define PerlIO_getc(f)		PerlSIO_fgetc(f)
-#define PerlIO_ungetc(f,c)		PerlSIO_ungetc(c,f)
 #define PerlIO_read(f,buf,count)	(SSize_t)PerlSIO_fread(buf,1,count,f)
 #define PerlIO_tell(f)		PerlSIO_ftell(f)
 #define PerlIO_eof(f)			PerlSIO_feof(f)