+ my $ignoring = $env_level < $level ? ', ignoring' : '';
+ _diag("Global destruction level $env_level set by PERL_DESTRUCT_LEVEL (debugging perl)$ignoring");
+ unless ($ignoring) {
+ return 1;
+ }
+ } else {
+ _diag("PERL_DESTRUCT_LEVEL is set to $env_level, but this perl doesn't seem to have debugging enabled, ignoring");