- my $ignoring = $env_level < $level ? ', ignoring' : '';
- _diag("Global destruction level $env_level set by PERL_DESTRUCT_LEVEL (debugging perl)$ignoring");
- unless ($ignoring) {
- return 1;
- }
+ _diag("Global destruction level $env_level set by PERL_DESTRUCT_LEVEL (debugging perl)");
+ return ($env_level >= $level) ? 1 : 0;