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 (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