projects
/
perl-cwmp.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
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
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 =
$xml = $self->dispatch( 'GetParameterNames', [ 'InternetGatewayDevice.', 1 ] );
} else {
my @params =
- grep { m/\.$/
&& ! m/\.\d+\.$/
}
+ grep { m/\.$/ }
keys %{ $stored->{ParameterInfo} }
;
if ( @params ) {
keys %{ $stored->{ParameterInfo} }
;
if ( @params ) {