Re: Not OK: perl5.7.0 +DEVEL7706 +Duseperlio on AIX4.[23]

Message-Id: <p04320403b63b2c750dce@[192.168.1.4]> 

va_copy() and the need of it.
See <http://wwwold.dkuug.dk/JTC1/SC22/WG14/www/docs/n907.ps>.

p4raw-id: //depot/perl@7793

1 files changed, 6 insertions, 0 deletions

diff --git a/perlio.c b/perlio.c
index 7f2d66f922..0c2e256015 100644
--- a/perlio.c
+++ b/perlio.c
@@ -2305,7 +2305,13 @@ PerlIO_vprintf(PerlIO *f, const char *fmt, va_list ap)
  SV *sv = newSVpvn("",0);
  char *s;
  STRLEN len;
+#ifdef NEED_VA_COPY
+ va_list apc;
+ Perl_va_copy(ap, apc);
+ sv_vcatpvf(sv, fmt, &apc);
+#else
  sv_vcatpvf(sv, fmt, &ap);
+#endif
  s = SvPV(sv,len);
  return PerlIO_write(f,s,len);
 }