1 files changed, 2 insertions, 1 deletions
diff --git a/perlio.c b/perlio.c
index d44c67f901..e60f3bb9ca 100644
--- 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() &&