r278@brr: dpavlin | 2007-11-26 00:17:17 +0100

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

diff --git a/lib/CWMP/Session.pm b/lib/CWMP/Session.pm
index e96f08d..52140c3 100644 (file)
--- a/lib/CWMP/Session.pm
+++ b/lib/CWMP/Session.pm
@@ -106,7 +106,7 @@ sub process_request {
        my $r = $sock->get_request;
        
        if ( ! $r ) {
-               carp "can't get_request";
+               warn "WARNING: can't get_request\n";
                return 0;
        }
 
@@ -146,8 +146,13 @@ sub process_request {
                warn "## acquired state = ", dump( $state ), "\n" if $self->debug;
 
                if ( ! defined( $state->{DeviceID} ) ) {
-                       warn "## state with DeviceID, using old one...\n";
-                       $state->{DeviceID} = $self->state->{DeviceID};
+                       if ( $self->state ) {
+                               warn "## state without DeviceID, using old one...\n";
+                               $state->{DeviceID} = $self->state->{DeviceID};
+                       } else {
+                               warn "WARNING: state without DeviceID, and I don't have old one!\n";
+                               warn "## state = ",dump( $state );
+                       }
                }
 
                $self->state( $state );