X-Git-Url: http://git.rot13.org/?p=perl-cwmp.git;a=blobdiff_plain;f=lib%2FCWMP%2FSession.pm;h=439035f8b7320d9ac4be4c52d9401186143acfcb;hp=d6621687fd02f179d0ef9e27cdaab98dbd1d6b4b;hb=HEAD;hpb=b3f35798ca497b3d02382bfb9f80f97247694e3f

diff --git a/lib/CWMP/Session.pm b/lib/CWMP/Session.pm
index d662168..439035f 100644
--- a/lib/CWMP/Session.pm
+++ b/lib/CWMP/Session.pm
@@ -131,8 +131,11 @@ sub process_request {
 		$xml = $self->dispatch( $job->dispatch );
 		$job->finish;
 	} else {
-		my @dispatch = CWMP::Vendor->all_parameters( $self->store, $uid, $queue );
+		my @dispatch;
+		@dispatch = CWMP::Vendor->all_parameters( $self->store, $uid, $queue );
+warn "XXX", dump @dispatch;
 		@dispatch = CWMP::Vendor->vendor_config( $self->store, $uid, $queue ) unless @dispatch;
+warn "XXX", dump @dispatch;
 		$xml = $self->dispatch( @dispatch ) if @dispatch;
 		if ( ! $xml ) {
 			warn ">>> no more work for $uid sending empty response\n";