+ my $is_debugging = is_debugging_perl();
+ if ($is_debugging) {
+ if (defined $env_level) {
+ _diag("Global destruction level $env_level set by PERL_DESTRUCT_LEVEL (environment)");
+ return ($env_level >= $level) ? 1 : 0;
+ } else {
+ $ENV{PERL_DESTRUCT_LEVEL} = $level;
+ _diag("Global destruction level $level set by PERL_DESTRUCT_LEVEL (forced)");