if ("$]" < 5.013_004 and not $ENV{PERL_VARIABLE_MAGIC_TEST_THREADS}) {
_diag("perl 5.13.4 required to safely test global destruction");
if ("$]" < 5.013_004 and not $ENV{PERL_VARIABLE_MAGIC_TEST_THREADS}) {
_diag("perl 5.13.4 required to safely test global destruction");