fix warning

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

diff --git a/lib/CWMP/Session.pm b/lib/CWMP/Session.pm
index ab65e4d..4ce8a07 100644 (file)
--- 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 ) {
        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} } );
                        next if $set_tried->{$uid}->{$n}++;
                        push @refresh, $n;
                        $queue->enqueue( 'SetParameterValues', { $n => $vendor_data->{$n} } );