From c132d8c37368aad6f9ff64ec873f3648407044df Mon Sep 17 00:00:00 2001
From: Dobrica Pavlinusic <dpavlin@rot13.org>
Date: Mon, 8 Mar 2010 13:38:42 +0000
Subject: [PATCH 1/1] fix warning

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

diff --git a/lib/CWMP/Session.pm b/lib/CWMP/Session.pm
index ab65e4d..4ce8a07 100644
--- a/lib/CWMP/Session.pm
+++ b/lib/CWMP/Session.pm
@@ -79,7 +79,7 @@ sub vendor_hook {
 	my @refresh;
 
 	foreach my $n ( keys %$vendor_data ) {
-		if ( $vendor_data->{$n} ne $stored->{$n} ) {
+		if ( defined $stored->{$n} && $vendor_data->{$n} ne $stored->{$n} ) {
 			next if $set_tried->{$uid}->{$n}++;
 			push @refresh, $n;
 			$queue->enqueue( 'SetParameterValues', { $n => $vendor_data->{$n} } );
-- 
2.20.1