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 a840f2adf6156d34c41786c2e6d516e10a75f994..d4b67496686c5e6b9a0916a61250984b1c9762ed 100644 (file)
--- 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;