find all Parameters supported by CPE

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

diff --git a/lib/CWMP/Session.pm b/lib/CWMP/Session.pm
index 4ce8a07..9d2a7b1 100644 (file)
--- a/lib/CWMP/Session.pm
+++ b/lib/CWMP/Session.pm
@@ -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 ) {