fix warnings

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

diff --git a/lib/CWMP/Store.pm b/lib/CWMP/Store.pm
index 37c3a84..3b61924 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;
 }