From: Dobrica Pavlinusic <dpavlin@rot13.org>
Date: Sun, 7 Mar 2010 21:05:28 +0000 (+0100)
Subject: remove namespaces in SetParameterValues
X-Git-Url: http://git.rot13.org/?p=perl-cwmp.git;a=commitdiff_plain;h=cdc51e9ba53a9d63355d5dd196a2d62e96550543

remove namespaces in SetParameterValues
---

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
 			)