X-Git-Url: https://perl5.git.perl.org/perl5.git/blobdiff_plain/1018e26f1c13277648057b08a7b77db44ebc46fe..0b2c215abcaa8ddb7711b25e83c02552d8bddbc5:/XSUB.h

diff --git a/XSUB.h b/XSUB.h
index eef290c..2bd681c 100644
--- a/XSUB.h
+++ b/XSUB.h
@@ -1,3 +1,12 @@
+/*    XSUB.h
+ *
+ *    Copyright (c) 1997-2002, Larry Wall
+ *
+ *    You may distribute under the terms of either the GNU General Public
+ *    License or the Artistic License, as specified in the README file.
+ *
+ */
+
 #ifndef _INC_PERL_XSUB_H
 #define _INC_PERL_XSUB_H 1
 
@@ -330,9 +339,9 @@ C<xsubpp>.  See L<perlxs/"The VERSIONCHECK: Keyword">.
 #    define putenv		PerlEnv_putenv
 #    define getenv		PerlEnv_getenv
 #    define uname		PerlEnv_uname
-#    define stdin		PerlIO_stdin()
-#    define stdout		PerlIO_stdout()
-#    define stderr		PerlIO_stderr()
+#    define stdin		PerlSIO_stdin()
+#    define stdout		PerlSIO_stdout()
+#    define stderr		PerlSIO_stderr()
 #    define fopen		PerlIO_open
 #    define fclose		PerlIO_close
 #    define feof		PerlIO_eof
@@ -348,9 +357,9 @@ C<xsubpp>.  See L<perlxs/"The VERSIONCHECK: Keyword">.
 #    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 setbuf		PerlIO_setbuf
-#    define setvbuf		PerlIO_setvbuf
-#    define setlinebuf		PerlIO_setlinebuf
+#    define setbuf		PerlSIO_setbuf
+#    define setvbuf		PerlSIO_setvbuf
+#    define setlinebuf		PerlSIO_setlinebuf
 #    define stdoutf		PerlIO_stdoutf
 #    define vfprintf		PerlIO_vprintf
 #    define ftell		PerlIO_tell