r252@brr: dpavlin | 2007-11-23 01:42:20 +0100

[perl-cwmp.git] / lib / CWMP / Server.pm

diff --git a/lib/CWMP/Server.pm b/lib/CWMP/Server.pm
index 13a923c..a3d909b 100644 (file)
--- a/lib/CWMP/Server.pm
+++ b/lib/CWMP/Server.pm
@@ -16,6 +16,7 @@ server
 
 use CWMP::Session;
 use CWMP::Queue;
+use CWMP::MemLeak;
 
 use Carp qw/confess/;
 use Data::Dump qw/dump/;
@@ -124,6 +125,8 @@ sub options {
 sub process_request {
        my $self = shift;
 
+       my $leak = CWMP::MemLeak->new;
+
        my $prop = $self->{server};
        confess "no server in ", ref( $self ) unless $prop;
        my $sock = $prop->{client};
@@ -146,6 +149,8 @@ sub process_request {
 
        warn "...returning to accepting new connections\n" if $prop->{debug};
 
+       $leak->report;
+
 }
 
 1;