[libnet-dbus-perl] 238/335: Allow a reactor instance to be passed into the bus constructor

[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 29132e8fab6444bd24d0a65feb17b770bdaf2c3e
Author: Daniel P. Berrange <berrange at redhat.com>
Date:   Sun Jan 28 17:49:52 2007 -0500

    Allow a reactor instance to be passed into the bus constructor
---
 lib/Net/DBus.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/lib/Net/DBus.pm b/lib/Net/DBus.pm
index d2f59de..f9bb893 100644
--- a/lib/Net/DBus.pm
+++ b/lib/Net/DBus.pm
@@ -254,7 +254,7 @@ sub _new {
 
     unless ($params{nomainloop}) {
 	if (exists $INC{'Net/DBus/Reactor.pm'}) {
-	    my $reactor = Net::DBus::Reactor->main;
+	    my $reactor = $params{reactor} ? $params{reactor} : Net::DBus::Reactor->main;
 	    $reactor->manage($self->get_connection);
 	}
 	# ... Add support for GLib and POE

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