From: Peter Rabbitson <ribasushi@cpan.org>
Date: Wed, 8 Aug 2012 22:07:10 +0000 (+0200)
Subject: Be on the safe side
X-Git-Tag: Devel-GlobalDestruction-0.09~2
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=62376bb463afa3a4fa805c58bed90b117c9ab80d;p=p5sagit%2FDevel-GlobalDestruction.git

Be on the safe side
---

diff --git a/lib/Devel/GlobalDestruction.pm b/lib/Devel/GlobalDestruction.pm
index 0854e9e..528fdac 100644
--- a/lib/Devel/GlobalDestruction.pm
+++ b/lib/Devel/GlobalDestruction.pm
@@ -13,7 +13,8 @@ use Sub::Exporter::Progressive -setup => {
 # we run 5.14+ - everything is in core
 #
 if (defined ${^GLOBAL_PHASE}) {
-  eval 'sub in_global_destruction () { ${^GLOBAL_PHASE} eq q[DESTRUCT] }';
+  eval 'sub in_global_destruction () { ${^GLOBAL_PHASE} eq q[DESTRUCT] }; 1'
+    or die $@;
 }
 # try to load the xs version if it was compiled
 #