projects
/
perl-cwmp.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
fix CWMP::Vendor->vendor_config
[perl-cwmp.git]
/
lib
/
CWMP
/
Methods.pm
diff --git
a/lib/CWMP/Methods.pm
b/lib/CWMP/Methods.pm
index
c529ed3
..
d614630
100644
(file)
--- 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 ) = @_;
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,
my ( $X, $state ) = @_;
$X->SetParameterValues( $cwmp,
- $X->ParameterList(
$cwmp
,
+ $X->ParameterList(
[]
,
map {
map {
- $X->ParameterValueStruct(
$cwmp
,
- $X->Name(
$cwmp
, $_ ),
- $X->Value(
$cwmp
, $params->{$_} )
+ $X->ParameterValueStruct(
[]
,
+ $X->Name(
[]
, $_ ),
+ $X->Value(
[]
, $params->{$_} )
)
} sort keys %$params
)
)
} sort keys %$params
)