From: Vincent Pit 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;