1 files changed, 1 insertions, 1 deletions
diff --git a/perl.c b/perl.c
index ba5a208523..c959815f69 100644
--- a/perl.c
+++ b/perl.c
@@ -662,7 +662,7 @@ perl_destruct(pTHXx)
 	    int f;
 	    const char *where;
 	    /* Our success message is an integer 0, and a char 0  */
-	    static const char success[sizeof(int) + 1];
+	    static const char success[sizeof(int) + 1] = {0};
 
 	    close(fd[0]);