1 files changed, 1 insertions, 1 deletions
diff --git a/perlio.c b/perlio.c
index 3a2f9120d3..ba934ff259 100644
--- a/perlio.c
+++ b/perlio.c
@@ -5243,7 +5243,7 @@ PerlIO_getpos(PerlIO *f, SV *pos)
 void
 Perl_noperl_die(const char* pat, ...)
 {
-    va_list(arglist);
+    va_list arglist;
     PERL_ARGS_ASSERT_NOPERL_DIE;
     va_start(arglist, pat);
     vfprintf(stderr, pat, arglist);