r134@llin (orig r133): dpavlin | 2007-10-26 22:46:09 +0200

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

diff --git a/lib/CWMP/Server.pm b/lib/CWMP/Server.pm
index 381e255..7634806 100644 (file)
--- a/lib/CWMP/Server.pm
+++ b/lib/CWMP/Server.pm
@@ -137,15 +137,21 @@ sub process_request {
 
        warn "default CPE queue ( " . join(",",@{$prop->{default_queue}}) . " )\n" if defined($prop->{default_queue});
 
-       my $session = CWMP::Session->new({
-               sock => $sock,
-               queue => $prop->{default_queue},
-               store => $prop->{store},
-               debug => $prop->{debug},
-       }) || confess "can't create session";
-
-       while ( $session->process_request ) {
-               warn "...another one bites the dust...\n";
+       eval  {
+               my $session = CWMP::Session->new({
+                       sock => $sock,
+                       queue => $prop->{default_queue},
+                       store => $prop->{store},
+                       debug => $prop->{debug},
+               }) || confess "can't create session";
+
+               while ( $session->process_request ) {
+                       warn "...another one bites the dust...\n";
+               }
+       };
+
+       if ($@) {
+               warn $@;
        }
 
        warn "...returning to accepting new connections\n";