Use PERL_FORCE_TEST_THREADS to force testing global destruction

diff --git a/t/lib/Variable/Magic/TestGlobalDestruction.pm b/t/lib/Variable/Magic/TestGlobalDestruction.pm
index c6639a63ba3e2d8e3e6815d0dc604be7c096af54..06ab8353da8a6ba6a3729c7d2945ef2527e0bca3 100644 (file)
--- a/t/lib/Variable/Magic/TestGlobalDestruction.pm
+++ b/t/lib/Variable/Magic/TestGlobalDestruction.pm
@@ -68,7 +68,7 @@ sub import {
  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;
  }