1 files changed, 1 insertions, 0 deletions
diff --git a/miniperlmain.c b/miniperlmain.c
index 2d66964093..680b04284a 100644
--- a/miniperlmain.c
+++ b/miniperlmain.c
@@ -40,6 +40,7 @@ char **env;
 	if (!my_perl)
 	    exit(1);
 	perl_construct( my_perl );
+	perl_destruct_level = 0;
     }
 
     exitstatus = perl_parse( my_perl, xs_init, argc, argv, (char **) NULL );