/[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 219 by dpavlin, Sun Nov 18 17:03:09 2007 UTC revision 220 by dpavlin, Fri Nov 23 00:42:50 2007 UTC
# Line 16  server Line 16  server
16    
17  use CWMP::Session;  use CWMP::Session;
18  use CWMP::Queue;  use CWMP::Queue;
19    use CWMP::MemLeak;
20    
21  use Carp qw/confess/;  use Carp qw/confess/;
22  use Data::Dump qw/dump/;  use Data::Dump qw/dump/;
# Line 124  sub options { Line 125  sub options {
125  sub process_request {  sub process_request {
126          my $self = shift;          my $self = shift;
127    
128            my $leak = CWMP::MemLeak->new;
129    
130          my $prop = $self->{server};          my $prop = $self->{server};
131          confess "no server in ", ref( $self ) unless $prop;          confess "no server in ", ref( $self ) unless $prop;
132          my $sock = $prop->{client};          my $sock = $prop->{client};
# Line 146  sub process_request { Line 149  sub process_request {
149    
150          warn "...returning to accepting new connections\n" if $prop->{debug};          warn "...returning to accepting new connections\n" if $prop->{debug};
151    
152            $leak->report;
153    
154  }  }
155    
156  1;  1;
Legend:
Removed from v.219  
changed lines
  Added in v.220
  ViewVC Help
Powered by ViewVC 1.1.26