fix warnings

git-svn-id: https://perl-cwmp.googlecode.com/svn/trunk@169 836a5e1a-633d-0410-964b-294494ad4392

diff --git a/lib/CWMP/Session.pm b/lib/CWMP/Session.pm
index b128f66..4df8709 100644 (file)
--- a/lib/CWMP/Session.pm
+++ b/lib/CWMP/Session.pm
@@ -147,7 +147,7 @@ sub process_request {
 
        $sock->send( "Set-Cookie: ID=" . $state->{ID} . "; path=/\r\n" ) if ( $state->{ID} );
        
 
        $sock->send( "Set-Cookie: ID=" . $state->{ID} . "; path=/\r\n" ) if ( $state->{ID} );
        

-       my $xml = '';
+       $xml = '';

 
        if ( my $dispatch = $state->{_dispatch} ) {
                $xml = $self->dispatch( $dispatch );
 
        if ( my $dispatch = $state->{_dispatch} ) {
                $xml = $self->dispatch( $dispatch );

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( @_ );
 
 
        $self->current_store->open( @_ );
 

+       # so that we don't have to check if it's defined
+       $self->debug( 0 ) unless $self->debug;
+

        return $self;
 }
 
        return $self;
 }