From: Dobrica Pavlinusic <dpavlin@rot13.org>
Date: Mon, 8 Mar 2010 10:46:11 +0000 (+0000)
Subject: remove namespaces in SetParameterValues
X-Git-Url: http://git.rot13.org/?p=perl-cwmp.git;a=commitdiff_plain;h=052cf2e1e3d3333d1766e89277521a88857fd821

remove namespaces in SetParameterValues

git-svn-id: https://perl-cwmp.googlecode.com/svn/trunk@271 836a5e1a-633d-0410-964b-294494ad4392
---

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
 			)