r200@brr: dpavlin | 2007-11-12 21:56:04 +0100

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

diff --git a/lib/CWMP/Store.pm b/lib/CWMP/Store.pm
index 37c3a84..2c79628 100644 (file)
--- a/lib/CWMP/Store.pm
+++ b/lib/CWMP/Store.pm
@@ -46,6 +46,9 @@ sub new {
 
        $self->current_store->open( @_ );
 
+       # so that we don't have to check if it's defined
+       $self->debug( 0 ) unless $self->debug;
+
        return $self;
 }
 
@@ -63,7 +66,7 @@ sub current_store {
 
        confess "unknown store module $module not one of ", dump( $self->possible_stores ) unless $s;
 
-       warn "#### current store = $s\n" if $self->debug > 4;
+#      warn "#### current store = $s\n" if $self->debug > 4;
 
        return $s;
 }
@@ -168,6 +171,8 @@ sub ID_to_uid {
 
        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;