From: Rafael Garcia-Suarez <rgarciasuarez@gmail.com>
Date: Thu, 18 May 2006 06:30:09 +0000 (+0000)
Subject: Adjust calling of Perl_va_copy(), noticed by Jarkko
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=239fec62f303a778565ed933ef3576674baac3f2;p=p5sagit%2Fp5-mst-13.2.git

Adjust calling of Perl_va_copy(), noticed by Jarkko

p4raw-id: //depot/perl@28222
---

diff --git a/util.c b/util.c
index d273ec4..4e49d19 100644
--- 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