diff options
| author | Jan Dubois <jand@activestate.com> | 2010-03-05 15:24:17 -0800 |
|---|---|---|
| committer | Jan Dubois <jand@activestate.com> | 2010-04-21 16:42:57 -0700 |
| commit | 634b482c7069a79619bb705e45cb5de0d3d665bd (patch) | |
| tree | b175617e312dc7da38eda70ff68b8eab77b9ed9f /iperlsys.h | |
| parent | 97556ec345ea8d489ce15dba96dd311eabb6fa13 (diff) | |
| download | perl-634b482c7069a79619bb705e45cb5de0d3d665bd.tar.gz | |
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
Diffstat (limited to 'iperlsys.h')
| -rw-r--r-- | iperlsys.h | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/iperlsys.h b/iperlsys.h index f82d9c57cb..76f5c41ae6 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) \ |