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 803484e8f1404d13405657788e1291a7f84ff491 Author: Daniel P. Berrange <d...@berrange.com> Date: Mon Nov 21 10:52:43 2005 +0000 Explicitly connect to session bus, since no security policy allows use of system bus with the examples --- examples/example-client-no-introspect.pl | 2 +- examples/example-client.pl | 2 +- examples/example-service-no-introspect.pl | 2 +- examples/example-service.pl | 2 +- examples/example-signal-emitter.pl | 2 +- 5 files changed, 5 insertions(+), 5 deletions(-) diff --git a/examples/example-client-no-introspect.pl b/examples/example-client-no-introspect.pl index 37275fc..ac28df6 100644 --- a/examples/example-client-no-introspect.pl +++ b/examples/example-client-no-introspect.pl @@ -5,7 +5,7 @@ use Carp qw(cluck carp); #$SIG{__WARN__} = sub { cluck $_[0] }; #$SIG{__DIE__} = sub { carp $_[0] }; -my $bus = Net::DBus->find(); +my $bus = Net::DBus->session(); my $service = $bus->get_service("org.designfu.SampleService"); my $object = $service->get_object("/SomeObject", "org.designfu.SampleInterface"); diff --git a/examples/example-client.pl b/examples/example-client.pl index 0a50bc2..1b5a179 100644 --- a/examples/example-client.pl +++ b/examples/example-client.pl @@ -5,7 +5,7 @@ use Carp qw(cluck carp confess); #$SIG{__WARN__} = sub { cluck $_[0] }; #$SIG{__DIE__} = sub { confess "[". $_[0] ."]"}; -my $bus = Net::DBus->find(); +my $bus = Net::DBus->session(); my $service = $bus->get_service("org.designfu.SampleService"); my $object = $service->get_object("/SomeObject"); diff --git a/examples/example-service-no-introspect.pl b/examples/example-service-no-introspect.pl index e57ffe8..10d6929 100644 --- a/examples/example-service-no-introspect.pl +++ b/examples/example-service-no-introspect.pl @@ -43,7 +43,7 @@ sub GetTuple { package main; -my $bus = Net::DBus->find(); +my $bus = Net::DBus->session(); my $service = $bus->export_service("org.designfu.SampleService"); my $object = SomeObject->new($service); diff --git a/examples/example-service.pl b/examples/example-service.pl index a3a12e2..5dad5ca 100644 --- a/examples/example-service.pl +++ b/examples/example-service.pl @@ -53,7 +53,7 @@ sub GetTuple { package main; -my $bus = Net::DBus->find(); +my $bus = Net::DBus->session(); my $service = $bus->export_service("org.designfu.SampleService"); my $object = SomeObject->new($service); diff --git a/examples/example-signal-emitter.pl b/examples/example-signal-emitter.pl index 851a509..47cc9ef 100644 --- a/examples/example-signal-emitter.pl +++ b/examples/example-signal-emitter.pl @@ -38,7 +38,7 @@ sub emitHelloSignal { package main; -my $bus = Net::DBus->find(); +my $bus = Net::DBus->session(); my $service = $bus->export_service("org.designfu.TestService"); my $object = TestObject->new($service); -- Alioth's /usr/local/bin/git-commit-notice on /srv/git.debian.org/git/pkg-perl/packages/libnet-dbus-perl.git _______________________________________________ Pkg-perl-cvs-commits mailing list Pkg-perl-cvs-commits@lists.alioth.debian.org http://lists.alioth.debian.org/cgi-bin/mailman/listinfo/pkg-perl-cvs-commits