Perl 5.001perl-5.001

[See the Changes file for a list of changes]

1 files changed, 1 insertions, 4 deletions

diff --git a/miniperlmain.c b/miniperlmain.c
index a17eb7f07a..ba74c4d4f9 100644
--- a/miniperlmain.c
+++ b/miniperlmain.c
@@ -8,9 +8,6 @@
 static void xs_init _((void));
 static PerlInterpreter *my_perl;
 
-/* This value may be raised by extensions for testing purposes */
-int perl_destruct_level = 0; /* 0=none, 1=full, 2=full with checks */
-
 int
 main(argc, argv, env)
 int argc;
@@ -36,7 +33,7 @@ char **env;
 
     exitstatus = perl_run( my_perl );
 
-    perl_destruct( my_perl, perl_destruct_level );
+    perl_destruct( my_perl );
     perl_free( my_perl );
 
     exit( exitstatus );