[libnet-dbus-perl] 262/335: Provide param names in example service
Intrigeri
intrigeri at moszumanska.debian.org
Sat Mar 21 01:08:08 UTC 2015
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
More information about the Pkg-perl-cvs-commits
mailing list