fix warning

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

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 ) {
-               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} } );