- my $env_level = int($ENV{PERL_DESTRUCT_LEVEL} || 0);
- if ($env_level >= $level) {
- my $is_debugging = is_debugging_perl();
- require Test::More;
- if ($is_debugging) {
- _diag("Global destruction level $env_level set by PERL_DESTRUCT_LEVEL (debugging perl)");
- return;
+ 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;