[libnet-dbus-perl] 262/335: Provide param names in example service

[Intrigeri]

This is an automated email from the git hooks/post-receive script.

intrigeri pushed a commit to branch experimental
in repository libnet-dbus-perl.

commit b4535ad539df8c4bc2d0cf2b70d0db5f80325603
Author: Daniel P. Berrange <berrange at redhat.com>
Date:   Sat Feb 16 14:12:51 2008 -0500

    Provide param names in example service
---
 examples/example-service.pl | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/examples/example-service.pl b/examples/example-service.pl
index c058ef1..0343521 100644
--- a/examples/example-service.pl
+++ b/examples/example-service.pl
@@ -31,7 +31,7 @@ sub new {
     return $self;
 }
 
-dbus_method("HelloWorld", ["string"], [["array", "string"]]);
+dbus_method("HelloWorld", ["string"], [["array", "string"]], { param_names => ["message"], return_names => ["reply"] });
 sub HelloWorld {
     my $self = shift;
     my $message = shift;

-- 
Alioth's /usr/local/bin/git-commit-notice on /srv/git.debian.org/git/pkg-perl/packages/libnet-dbus-perl.git