X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=perlsdio.h;h=25d6b36addc62b2c715cdaaa1db8410e626b9e74;hb=1db366cc74404c47243e1d86efa59c6559db818e;hp=1a6f2f01c4cd57984ae8d664825e6374ec3c3b1d;hpb=1129b882ced9d5881a47214405219a2e6e332a92;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/perlsdio.h b/perlsdio.h
index 1a6f2f0..25d6b36 100644
--- a/perlsdio.h
+++ b/perlsdio.h
@@ -34,8 +34,8 @@
 #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()'