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 (file)
--- 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
                        )