In perl.git, the branch blead has been updated <http://perl5.git.perl.org/perl.git/commitdiff/20c8f8f9118fd23081c818637815bf1aab60b808?hp=97556ec345ea8d489ce15dba96dd311eabb6fa13>
- Log ----------------------------------------------------------------- commit 20c8f8f9118fd23081c818637815bf1aab60b808 Author: Jan Dubois <[email protected]> Date: Wed Apr 21 16:49:09 2010 -0700 XSUB.h is supposed to redefine fgets under PERL_IMPLICIT_SYS, but doesn't. See also http://rt.cpan.org/Public/Bug/Display.html?id=55049 with workaround in http://code.google.com/p/perl-devel-nytprof/source/detail?r=1168 M XSUB.h commit 634b482c7069a79619bb705e45cb5de0d3d665bd Author: Jan Dubois <[email protected]> Date: Fri Mar 5 15:24:17 2010 -0800 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 M iperlsys.h ----------------------------------------------------------------------- Summary of changes: XSUB.h | 1 + iperlsys.h | 4 ++-- 2 files changed, 3 insertions(+), 2 deletions(-) diff --git a/XSUB.h b/XSUB.h index f23df37..06cb1c3 100644 --- a/XSUB.h +++ b/XSUB.h @@ -507,6 +507,7 @@ Rethrows a previously caught exception. See L<perlguts/"Exception Handling">. # define ferror PerlSIO_ferror # define clearerr PerlSIO_clearerr # define getc PerlSIO_getc +# define fgets PerlSIO_fgets # define fputc PerlSIO_fputc # define fputs PerlSIO_fputs # define fflush PerlSIO_fflush 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) \ -- Perl5 Master Repository
