my $level = $args{level};
$level = 1 unless defined $level;
- if ("$]" < 5.013_004 and not $ENV{PERL_VARIABLE_MAGIC_TEST_THREADS}) {
+ if ("$]" < 5.013_004 and not $ENV{PERL_FORCE_TEST_THREADS}) {
_diag("perl 5.13.4 required to safely test global destruction");
return 0;
}