projects
/
perl-cwmp.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
fix first GetParameterNames
[perl-cwmp.git]
/
lib
/
CWMP
/
Session.pm
diff --git
a/lib/CWMP/Session.pm
b/lib/CWMP/Session.pm
index
442a434
..
26b1358
100644
(file)
--- a/
lib/CWMP/Session.pm
+++ b/
lib/CWMP/Session.pm
@@
-144,10
+144,12
@@
sub process_request {
my @params = grep { m/\.$/ } keys %{ $stored->{ParameterInfo} };
if ( @params ) {
warn "# GetParameterNames ", dump( @params );
my @params = grep { m/\.$/ } keys %{ $stored->{ParameterInfo} };
if ( @params ) {
warn "# GetParameterNames ", dump( @params );
- $xml = $self->dispatch( 'GetParameterNames', [ shift @params, 1 ] );
+ my $first = shift @params;
+ delete $stored->{ParameterInfo}->{$first};
+ $xml = $self->dispatch( 'GetParameterNames', [ $first, 1 ] );
foreach ( @params ) {
$queue->enqueue( 'GetParameterNames', [ $_, 1 ] );
foreach ( @params ) {
$queue->enqueue( 'GetParameterNames', [ $_, 1 ] );
- delete
( $stored->{ParameterInfo}->{ $_ } )
;
+ delete
$stored->{ParameterInfo}->{ $_ }
;
}
$self->store->set_state( $uid, $stored );
} else {
}
$self->store->set_state( $uid, $stored );
} else {