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

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