-#define PerlIO_printf fprintf
-#define PerlIO_stdoutf printf
-#define PerlIO_vprintf(f,fmt,a) vfprintf(f,fmt,a)
-#define PerlIO_write(f,buf,count) fwrite1(buf,1,count,f)
-#define PerlIO_open fopen
-#define PerlIO_fdopen fdopen
-#define PerlIO_reopen freopen
-#ifdef SOCKS_64BIT_BUG
-# define PerlIO_close(f) (Perl_do_s64_delete_buffer(f), fclose(f))
-#else
-# define PerlIO_close(f) fclose(f)
-#endif
-#define PerlIO_puts(f,s) fputs(s,f)
-#define PerlIO_putc(f,c) fputc(c,f)
+#define PerlIO_printf PerlSIO_printf
+#define PerlIO_stdoutf PerlSIO_stdoutf
+#define PerlIO_vprintf(f,fmt,a) PerlSIO_vprintf(f,fmt,a)
+#define PerlIO_write(f,buf,count) PerlSIO_fwrite(buf,1,count,f)
+#define PerlIO_unread(f,buf,count) (-1)
+#define PerlIO_open PerlSIO_fopen
+#define PerlIO_fdopen PerlSIO_fdopen
+#define PerlIO_reopen PerlSIO_freopen
+#define PerlIO_close(f) PerlSIO_fclose(f)
+#define PerlIO_puts(f,s) PerlSIO_fputs(f,s)
+#define PerlIO_putc(f,c) PerlSIO_fputc(f,c)