X-Git-Url: http://git.rot13.org/?p=perl-cwmp.git;a=blobdiff_plain;f=lib%2FCWMP%2FSession.pm;h=9d2a7b14b5c15a8512d876603a53cfbbfe56cbe1;hp=ab65e4de14aa0727b4a0e652d6bb9e2c573ead96;hb=c0b42dbe7c7a0675380bc460cca4d3e88bde67b4;hpb=9f95adad426bc85521c077c497646f4a2912ecd8

diff --git a/lib/CWMP/Session.pm b/lib/CWMP/Session.pm
index ab65e4d..9d2a7b1 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} } );
@@ -173,7 +173,7 @@ sub process_request {
 			$xml = $self->dispatch( 'GetParameterNames', [ 'InternetGatewayDevice.', 1 ] );
 		} else {
 			my @params =
-				grep { m/\.$/ && ! m/\.\d+\.$/ }
+				grep { m/\.$/ }
 				keys %{ $stored->{ParameterInfo} }
 			;
 			if ( @params ) {