diff options
Diffstat (limited to 'miniperlmain.c')
| -rw-r--r-- | miniperlmain.c | 5 |
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 ); |