summaryrefslogtreecommitdiff
path: root/XSUB.h
diff options
context:
space:
mode:
authorNick Ing-Simmons <nik@tiuk.ti.com>2003-01-26 17:46:19 +0000
committerNick Ing-Simmons <nik@tiuk.ti.com>2003-01-26 17:46:19 +0000
commitf9415d2377705b4cde579db69c15a29f1b9bb9f6 (patch)
tree5d952c992a89ec21365ebd7003204e61594715b6 /XSUB.h
parent157b749675929e393a7c0bb5f4006743737e22f3 (diff)
downloadperl-f9415d2377705b4cde579db69c15a29f1b9bb9f6.tar.gz
PERL_IMPLICIT_SYS does NOT vector PerlIO_xxx but PerlSIO_xxx, so
correct XSUB.h p4raw-id: //depot/perlio@18591
Diffstat (limited to 'XSUB.h')
-rw-r--r--XSUB.h42
1 files changed, 21 insertions, 21 deletions
diff --git a/XSUB.h b/XSUB.h
index 82eb4233f1..609f5b9db2 100644
--- 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