find all Parameters supported by CPE

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

diff --git a/lib/CWMP/Session.pm b/lib/CWMP/Session.pm
index ab65e4d..9d2a7b1 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} } );
@@ -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 ) {