Changeset 8651

Timestamp:

08/22/10 14:17:27 (18 months ago)

Author:

MichaelTempest

Message:

Item2286: Make it easier to use Devel::Leak::Object to detect memory leaks

File:

• trunk/UnitTestContrib/lib/Unit/TestRunner.pm (modified) (2 diffs)

trunk/UnitTestContrib/lib/Unit/TestRunner.pm

@@ -17 +17 @@
 use File::Spec;
 
-#use Devel::Leak::Object qw{ GLOBAL_bless };
-#$Devel::Leak::Object::TRACKSOURCELINES = 1;
+sub CHECKLEAK {0}
+BEGIN {
+    if (CHECKLEAK) {
+        eval "use Devel::Leak::Object qw{ GLOBAL_bless };";
+        die $@ if $@;
+        $Devel::Leak::Object::TRACKSOURCELINES = 1;
+    }
+}
 
 sub new {
@@ -360 +366 @@
     foreach my $test (@tests) {
 
-        #Devel::Leak::Object::checkpoint();
+        Devel::Leak::Object::checkpoint() if CHECKLEAK;
         print "\t$test\n";
         $action .= "\n# $test\n    ";