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 (executable)
--- 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 (file)
--- 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 (file)
--- 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 (executable)
--- 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