added empty ParameterKey to make SetParameterValues work
[perl-cwmp.git] / lib / CWMP / Methods.pm
index 5721c41..3a2aa68 100644 (file)
@@ -77,7 +77,7 @@ sub GetRPCMethods {
        my ( $self, $state ) = @_;
        $self->xml( $state, sub {
                my ( $X, $state ) = @_;
-               $X->GetRPCMethods();
+               $X->GetRPCMethods( $cwmp, '' );
        });
 };
 
@@ -117,7 +117,8 @@ sub SetParameterValues {
                                                $X->Value( [], $params->{$_} )
                                        )
                                } sort keys %$params
-                       )
+                       ),
+                       $X->ParameterKey( '' ),
                );
        });
 }