From 052cf2e1e3d3333d1766e89277521a88857fd821 Mon Sep 17 00:00:00 2001 From: Dobrica Pavlinusic Date: Mon, 8 Mar 2010 10:46:11 +0000 Subject: [PATCH] remove namespaces in SetParameterValues git-svn-id: https://perl-cwmp.googlecode.com/svn/trunk@271 836a5e1a-633d-0410-964b-294494ad4392 --- lib/CWMP/Methods.pm | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) 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 ) -- 2.20.1