- my $is_debugging = is_debugging_perl();
- if ($is_debugging) {
- _diag("Global destruction level $env_level set by PERL_DESTRUCT_LEVEL (debugging perl)");
+ 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)");