[libnet-dbus-perl] 148/335: Explicitly connect to session bus, since no security policy allows use of system bus with the examples

[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 803484e8f1404d13405657788e1291a7f84ff491
Author: Daniel P. Berrange <dan at 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