X-Git-Url: http://git.rot13.org/?p=perl-cwmp.git;a=blobdiff_plain;f=lib%2FCWMP%2FSession.pm;fp=lib%2FCWMP%2FSession.pm;h=26b135883da04084f3c9cd9cf62bf0ef868da31d;hp=442a434e197b828125806dcd9a958096b8f644a4;hb=2692c36a40349a6d2ba75e7e63c7808e7e40e574;hpb=cb99de4f46719f44da3f6c280adcd8e627d33424

diff --git a/lib/CWMP/Session.pm b/lib/CWMP/Session.pm
index 442a434..26b1358 100644
--- 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 );
-				$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 ] );
-					delete( $stored->{ParameterInfo}->{ $_ } );
+					delete $stored->{ParameterInfo}->{ $_ };
 				}
 				$self->store->set_state( $uid, $stored );
 			} else {