From: Dobrica Pavlinusic <dpavlin@rot13.org>
Date: Mon, 8 Mar 2010 14:16:03 +0000 (+0100)
Subject: find all Parameters supported by CPE
X-Git-Url: http://git.rot13.org/?p=perl-cwmp.git;a=commitdiff_plain;h=c0b42dbe7c7a0675380bc460cca4d3e88bde67b4;hp=4d3738bffb48b2357c4df6d2e25af7bc6e05935f

find all Parameters supported by CPE

Before we stopped at first parameter which is array, but it's
useful to get full paramter list from CPE
---

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