From: Jan Dubois <jand@activestate.com>
Date: Fri, 5 Mar 2010 23:24:17 +0000 (-0800)
Subject: Apply minimal patch for Perl bug 72704.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=634b482c7069a79619bb705e45cb5de0d3d665bd;p=p5sagit%2Fp5-mst-13.2.git

Apply minimal patch for Perl bug 72704.

Arguments to fputc() and fputs() are reverted on Windows.

This is not the optimal patch, but will be backwards compatible
with what is in 5.12.0.  For the "correct" patch please see

http://rt.perl.org/rt3/Public/Bug/Display.html?id=72704
---

diff --git a/iperlsys.h b/iperlsys.h
index f82d9c5..76f5c41 100644
--- a/iperlsys.h
+++ b/iperlsys.h
@@ -226,9 +226,9 @@ struct IPerlStdIOInfo
 #define PerlSIO_get_ptr(f)						\
 	(*PL_StdIO->pGetPtr)(PL_StdIO, (f))
 #define PerlSIO_fputc(f,c)						\
-	(*PL_StdIO->pPutc)(PL_StdIO, (f),(c))
+	(*PL_StdIO->pPutc)(PL_StdIO, (c),(f))
 #define PerlSIO_fputs(f,s)						\
-	(*PL_StdIO->pPuts)(PL_StdIO, (f),(s))
+	(*PL_StdIO->pPuts)(PL_StdIO, (s),(f))
 #define PerlSIO_fflush(f)						\
 	(*PL_StdIO->pFlush)(PL_StdIO, (f))
 #define PerlSIO_fgets(s, n, fp)						\