dump current session with debug level > 5

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

diff --git a/lib/CWMP/Store.pm b/lib/CWMP/Store.pm
index 7a69269..2c79628 100644 (file)
--- a/lib/CWMP/Store.pm
+++ b/lib/CWMP/Store.pm
@@ -171,6 +171,8 @@ sub ID_to_uid {
 
        warn "#### ID_to_uid",dump( $ID, $state ),$/ if $self->debug > 4;
 
 
        warn "#### ID_to_uid",dump( $ID, $state ),$/ if $self->debug > 4;
 

+       warn "##### current session = ",dump( $session ), $/ if $self->debug > 5;
+

        $session->{ $ID }->{last_seen} = time();
 
        my $uid;
        $session->{ $ID }->{last_seen} = time();
 
        my $uid;