Coverity CID #15149: Missing varargs init or cleanup

The return was returning after va_start but before va_end.

diff --git a/perlio.c b/perlio.c
index d44c67f..e60f3bb 100644 (file)
--- a/perlio.c
+++ b/perlio.c
@@ -350,11 +350,12 @@ PerlIO_debug(const char *fmt, ...)
 {
     va_list ap;
     dSYS;
-    va_start(ap, fmt);
 
     if (!DEBUG_i_TEST)
         return;
 
+    va_start(ap, fmt);
+
     if (!PL_perlio_debug_fd) {
        if (!TAINTING_get &&
            PerlProc_getuid() == PerlProc_geteuid() &&