Changeset 2340

Timestamp:

05/15/08 19:31:42 (21 months ago)

Author:

bchoate

Message:

Issue reporting through debug method.

Files:

• branches/release-38/lib/MT/TheSchwartz.pm (modified) (3 diffs)

branches/release-38/lib/MT/TheSchwartz.pm

@@ -175 +175 @@
             $did_work = 0;
             if ($OBJECT_REPORT) {
-                leak_report(\%obj_start, \%obj_pre, \%Devel::Leak::Object::OBJECT_COUNT);
+                my $report = leak_report(\%obj_start, \%obj_pre, \%Devel::Leak::Object::OBJECT_COUNT);
+                $client->debug($report) if $report ne '';
             }
         }
@@ -185 +186 @@
 our %persistent;
 BEGIN {
-    %persistent = map { $_ => 1 } qw( MT::Task MT::Plugin MT::Component MT::ArchiveType MT::TaskMgr MT::WeblogPublisher MT::Serializer TheSchwartz::Job TheSchwartz::JobHandle );
+    %persistent = map { $_ => 1 } qw( MT::Callback MT::Task MT::Plugin MT::Component MT::ArchiveType MT::TaskMgr MT::WeblogPublisher MT::Serializer TheSchwartz::Job TheSchwartz::JobHandle );
 }
 sub leak_report {
     my ($start, $pre, $post) = @_;
     my $reported;
+    my $report = '';
     foreach my $class (sort keys %$post) {
         # skip reporting classes that are persistent in nature
@@ -200 +202 @@
         next if $post_count == 1;  # ignores most singletons
         if (($pre_count != $post_count) || ($post_count != $start_count)) {
-            print "Leak report (class, total, delta from last job(s), delta since process start):\n" unless $reported;
-            printf "%-40s %-10d %-10d %-10d\n", $class, $post_count, $post_count - $pre_count, $post_count - $start_count;
+            $report .= "Leak report (class, total, delta from last job(s), delta since process start):\n" unless $reported;
+            $report .= sprintf("%-40s %-10d %-10d %-10d\n", $class, $post_count, $post_count - $pre_count, $post_count - $start_count);
             $reported = 1;
         }
     }
+    return $report;
 }