X-Git-Url: http://git.rot13.org/?p=perl-cwmp.git;a=blobdiff_plain;f=lib%2FCWMP%2FMethods.pm;h=d6146300345e2049572efc23a624ae11e05fdb4c;hp=c529ed37cd1595ac65ae4702fe5bc007ad8fb626;hb=5a913f2c18fe1894cda0144870684e9d559352d2;hpb=b5312b7c069d4c93c9be9f2c1aa713d8ec441c05

diff --git a/lib/CWMP/Methods.pm b/lib/CWMP/Methods.pm
index c529ed3..d614630 100644
--- a/lib/CWMP/Methods.pm
+++ b/lib/CWMP/Methods.pm
@@ -77,7 +77,7 @@ sub GetRPCMethods {
 	my ( $self, $state ) = @_;
 	$self->xml( $state, sub {
 		my ( $X, $state ) = @_;
-		$X->GetRPCMethods();
+		$X->GetRPCMethods( $cwmp, '' );
 	});
 };
 
@@ -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
 			)