PERL_IMPLICIT_SYS does NOT vector PerlIO_xxx but PerlSIO_xxx, so
Nick Ing-Simmons [Sun, 26 Jan 2003 17:46:19 +0000 (17:46 +0000)]
correct XSUB.h

p4raw-id: //depot/perlio@18591

XSUB.h

diff --git a/XSUB.h b/XSUB.h
index 82eb423..609f5b9 100644 (file)
--- a/XSUB.h
+++ b/XSUB.h
@@ -385,32 +385,32 @@ C<xsubpp>.  See L<perlxs/"The VERSIONCHECK: Keyword">.
 #    define stdin              PerlSIO_stdin
 #    define stdout             PerlSIO_stdout
 #    define stderr             PerlSIO_stderr
-#    define fopen              PerlIO_open
-#    define fclose             PerlIO_close
-#    define feof               PerlIO_eof
-#    define ferror             PerlIO_error
-#    define fclearerr          PerlIO_clearerr
-#    define getc               PerlIO_getc
-#    define fputc(c, f)                PerlIO_putc(f,c)
-#    define fputs(s, f)                PerlIO_puts(f,s)
-#    define fflush             PerlIO_flush
-#    define ungetc(c, f)       PerlIO_ungetc((f),(c))
-#    define fileno             PerlIO_fileno
-#    define fdopen             PerlIO_fdopen
-#    define freopen            PerlIO_reopen
-#    define fread(b,s,c,f)     PerlIO_read((f),(b),(s*c))
-#    define fwrite(b,s,c,f)    PerlIO_write((f),(b),(s*c))
+#    define fopen              PerlSIO_fopen
+#    define fclose             PerlSIO_fclose
+#    define feof               PerlSIO_feof
+#    define ferror             PerlSIO_ferror
+#    define fclearerr          PerlSIO_clearerr
+#    define getc               PerlSIO_getc
+#    define fputc              PerlSIO_fputc
+#    define fputs              PerlSIO_fputs
+#    define fflush             PerlSIO_fflush
+#    define ungetc             PerlSIO_ungetc
+#    define fileno             PerlSIO_fileno
+#    define fdopen             PerlSIO_fdopen
+#    define freopen            PerlSIO_freopen
+#    define fread              PerlSIO_fread
+#    define fwrite             PerlSIO_fwrite
 #    define setbuf             PerlSIO_setbuf
 #    define setvbuf            PerlSIO_setvbuf
 #    define setlinebuf         PerlSIO_setlinebuf
 #    define stdoutf            PerlSIO_stdoutf
 #    define vfprintf           PerlSIO_vprintf
-#    define ftell              PerlIO_tell
-#    define fseek              PerlIO_seek
-#    define fgetpos            PerlIO_getpos
-#    define fsetpos            PerlIO_setpos
-#    define frewind            PerlIO_rewind
-#    define tmpfile            PerlIO_tmpfile
+#    define ftell              PerlSIO_ftell
+#    define fseek              PerlSIO_fseek
+#    define fgetpos            PerlSIO_fgetpos
+#    define fsetpos            PerlSIO_fsetpos
+#    define frewind            PerlSIO_rewind
+#    define tmpfile            PerlSIO_tmpfile
 #    define access             PerlLIO_access
 #    define chmod              PerlLIO_chmod
 #    define chsize             PerlLIO_chsize