From e865da359f9d5a2e6d773c2d132371d98f102ced Mon Sep 17 00:00:00 2001
From: Dobrica Pavlinusic <dpavlin@rot13.org>
Date: Sun, 28 Oct 2007 13:05:01 +0000
Subject: [PATCH] fix warnings

git-svn-id: https://perl-cwmp.googlecode.com/svn/trunk@169 836a5e1a-633d-0410-964b-294494ad4392
---
 lib/CWMP/Session.pm | 2 +-
 lib/CWMP/Store.pm   | 3 +++
 2 files changed, 4 insertions(+), 1 deletion(-)

diff --git a/lib/CWMP/Session.pm b/lib/CWMP/Session.pm
index b128f66..4df8709 100644
--- 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} );
 	
-	my $xml = '';
+	$xml = '';
 
 	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
--- 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;
 }
 
-- 
2.20.1