From: Dobrica Pavlinusic <dpavlin@rot13.org>
Date: Sun, 25 Nov 2007 12:51:52 +0000 (+0000)
Subject:  r260@brr:  dpavlin | 2007-11-25 13:51:25 +0100
X-Git-Url: http://git.rot13.org/?p=perl-cwmp.git;a=commitdiff_plain;h=0096fa526f2bff8da10e3c81d14daa03efc6aef2

 r260@brr:  dpavlin | 2007-11-25 13:51:25 +0100
 it seems that DBM::Deep is leaking memory


git-svn-id: https://perl-cwmp.googlecode.com/svn/trunk@223 836a5e1a-633d-0410-964b-294494ad4392
---

diff --git a/bin/acs.pl b/bin/acs.pl
index 1b341e7..1cf9de8 100755
--- a/bin/acs.pl
+++ b/bin/acs.pl
@@ -14,6 +14,8 @@ use Getopt::Long;
 use Data::Dump qw/dump/;
 use File::Find;
 
+use Devel::LeakTrace::Fast;
+
 my $port = 3333;
 my $debug = 0;
 my $store_path = './';
diff --git a/lib/CWMP/Request.pm b/lib/CWMP/Request.pm
index 5ae478e..6649688 100644
--- a/lib/CWMP/Request.pm
+++ b/lib/CWMP/Request.pm
@@ -8,6 +8,8 @@ use Data::Dump qw/dump/;
 use Carp qw/confess cluck/;
 use Class::Trigger;
 
+#use Devel::LeakTrace::Fast;
+
 =head1 NAME
 
 CWMP::Request - parse SOAP request metods
diff --git a/lib/CWMP/Session.pm b/lib/CWMP/Session.pm
index e2f6b8c..e8fa1dd 100644
--- a/lib/CWMP/Session.pm
+++ b/lib/CWMP/Session.pm
@@ -189,7 +189,7 @@ sub process_request {
 	} elsif ( $job = $queue->dequeue ) {
 		$xml = $self->dispatch( $job->dispatch );
 	} elsif ( $size == 0 ) {
-		warn ">>> no more queued commands, no client pending, closing connection $to_uid";
+		warn ">>> over, closing connection $to_uid";
 		$sock->close;
 		return;
 	} else {
diff --git a/t/05-store.t b/t/05-store.t
index 746ad4c..0e885ad 100755
--- a/t/05-store.t
+++ b/t/05-store.t
@@ -9,6 +9,8 @@ use Data::Dump qw/dump/;
 use Cwd qw/abs_path/;
 use lib 'lib';
 
+use Devel::LeakTrace::Fast;
+
 BEGIN {
 	use_ok('CWMP::Store');
 	use_ok('CWMP::Store::DBMDeep');
@@ -76,6 +78,8 @@ sub test_store {
 
 	is_deeply( [ $store->all_uids ], [ 123456, 99999 ], 'all_uids' );
 
+	undef $store;
+
 }
 
 # now test all stores