From: Vincent Pit <vince@profvince.com>
Date: Tue, 10 Mar 2015 19:07:08 +0000 (-0300)
Subject: Output a diagnostic if global destruction is not tested
X-Git-Tag: rt101410~5
X-Git-Url: http://git.vpit.fr/?a=commitdiff_plain;h=639740d033285630593f2dc4773e5a8b7fa42ed6;p=perl%2Fmodules%2FVariable-Magic.git

Output a diagnostic if global destruction is not tested
---

diff --git a/t/lib/Variable/Magic/TestGlobalDestruction.pm b/t/lib/Variable/Magic/TestGlobalDestruction.pm
index a840f2a..d4b6749 100644
--- a/t/lib/Variable/Magic/TestGlobalDestruction.pm
+++ b/t/lib/Variable/Magic/TestGlobalDestruction.pm
@@ -95,6 +95,9 @@ sub import {
   _diag("Global destruction level $level set by Perl::Destruct::Level");
   return;
  }
+
+ _diag("Not testing global destruction");
+ return;
 }
 
 1;