diff options
Diffstat (limited to 'Master/tlpkg/tlperl/lib/CORE/perlsdio.h')
-rw-r--r-- | Master/tlpkg/tlperl/lib/CORE/perlsdio.h | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/Master/tlpkg/tlperl/lib/CORE/perlsdio.h b/Master/tlpkg/tlperl/lib/CORE/perlsdio.h index 1a6f2f01c4c..691ee325711 100644 --- a/Master/tlpkg/tlperl/lib/CORE/perlsdio.h +++ b/Master/tlpkg/tlperl/lib/CORE/perlsdio.h @@ -34,11 +34,11 @@ #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) +#define PerlIO_puts(f,s) PerlSIO_fputs(s,f) +#define PerlIO_putc(f,c) PerlSIO_fputc(c,f) #if defined(VMS) # if defined(__DECC) - /* Unusual definition of ungetc() here to accomodate fast_sv_gets()' + /* Unusual definition of ungetc() here to accommodate fast_sv_gets()' * belief that it can mix getc/ungetc with reads from stdio buffer */ int decc$ungetc(int __c, FILE *__stream); # define PerlIO_ungetc(f,c) ((c) == EOF ? EOF : \ |