feature check rather than version check

diff --git a/Makefile.PL b/Makefile.PL
index 7ab9cef..646fbab 100644 (file)
--- a/Makefile.PL
+++ b/Makefile.PL
@@ -16,6 +16,6 @@ WriteMakefile(
         'Sub::Exporter' => 0,
         'Scope::Guard'  => 0,
     },
-    ($] >= 5.013007 ? (XS => {}, C => []) : ()),
+    (defined ${^GLOBAL_PHASE} ? (XS => {}, C => []) : ()),
 );
 

diff --git a/lib/Devel/GlobalDestruction.pm b/lib/Devel/GlobalDestruction.pm
index 3378882..04efbba 100644 (file)
--- a/lib/Devel/GlobalDestruction.pm
+++ b/lib/Devel/GlobalDestruction.pm
@@ -14,7 +14,7 @@ use Sub::Exporter -setup => {
        groups  => { default => [ -all ] },
 };
 
-if ($] >= 5.013007) {
+if (defined ${^GLOBAL_PHASE}) {
     eval 'sub in_global_destruction () { ${^GLOBAL_PHASE} eq q[DESTRUCT] }';
 }
 else {