This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Adjust calling of Perl_va_copy(), noticed by Jarkko
authorRafael Garcia-Suarez <rgarciasuarez@gmail.com>
Thu, 18 May 2006 06:30:09 +0000 (06:30 +0000)
committerRafael Garcia-Suarez <rgarciasuarez@gmail.com>
Thu, 18 May 2006 06:30:09 +0000 (06:30 +0000)
p4raw-id: //depot/perl@28222

util.c

diff --git a/util.c b/util.c
index d273ec4..4e49d19 100644 (file)
--- a/util.c
+++ b/util.c
@@ -5403,7 +5403,7 @@ Perl_my_vsnprintf(char *buffer, const Size_t len, const char *format, va_list ap
     int retval;
 #ifdef NEED_VA_COPY
     va_list apc;
-    Perl_va_copy(apc);
+    Perl_va_copy(ap, apc);
 # ifdef HAS_VSNPRINTF
     retval = vsnprintf(buffer, len, format, apc);
 # else