X-Git-Url: http://git.rot13.org/?p=perl-cwmp.git;a=blobdiff_plain;f=lib%2FCWMP%2FMethods.pm;fp=lib%2FCWMP%2FMethods.pm;h=5721c410529c82fe90c4d8cfcbc9332b97d00ce4;hp=c529ed37cd1595ac65ae4702fe5bc007ad8fb626;hb=052cf2e1e3d3333d1766e89277521a88857fd821;hpb=9f95adad426bc85521c077c497646f4a2912ecd8

diff --git a/lib/CWMP/Methods.pm b/lib/CWMP/Methods.pm
index c529ed3..5721c41 100644
--- a/lib/CWMP/Methods.pm
+++ b/lib/CWMP/Methods.pm
@@ -110,11 +110,11 @@ sub SetParameterValues {
 		my ( $X, $state ) = @_;
 
 		$X->SetParameterValues( $cwmp,
-			$X->ParameterList( $cwmp,
+			$X->ParameterList( [],
 				map {
-					$X->ParameterValueStruct( $cwmp,
-						$X->Name( $cwmp, $_ ),
-						$X->Value( $cwmp, $params->{$_} )
+					$X->ParameterValueStruct( [],
+						$X->Name( [], $_ ),
+						$X->Value( [], $params->{$_} )
 					)
 				} sort keys %$params
 			)