/[cwmp]/google/trunk/lib/CWMP/Server.pm
This is repository of my old source code which isn't updated any more. Go to git.rot13.org for current projects!
ViewVC logotype

Diff of /google/trunk/lib/CWMP/Server.pm

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 220 by dpavlin, Fri Nov 23 00:42:50 2007 UTC revision 221 by dpavlin, Fri Nov 23 21:14:54 2007 UTC
# Line 16  server Line 16  server
16    
17  use CWMP::Session;  use CWMP::Session;
18  use CWMP::Queue;  use CWMP::Queue;
 use CWMP::MemLeak;  
19    
20  use Carp qw/confess/;  use Carp qw/confess/;
21  use Data::Dump qw/dump/;  use Data::Dump qw/dump/;
# Line 125  sub options { Line 124  sub options {
124  sub process_request {  sub process_request {
125          my $self = shift;          my $self = shift;
126    
         my $leak = CWMP::MemLeak->new;  
   
127          my $prop = $self->{server};          my $prop = $self->{server};
128          confess "no server in ", ref( $self ) unless $prop;          confess "no server in ", ref( $self ) unless $prop;
129          my $sock = $prop->{client};          my $sock = $prop->{client};
# Line 149  sub process_request { Line 146  sub process_request {
146    
147          warn "...returning to accepting new connections\n" if $prop->{debug};          warn "...returning to accepting new connections\n" if $prop->{debug};
148    
         $leak->report;  
   
149  }  }
150    
151  1;  1;
Legend:
Removed from v.220  
changed lines
  Added in v.221
  ViewVC Help
Powered by ViewVC 1.1.26