From d9f854e1b6511c109164798bf3d088802a06206d Mon Sep 17 00:00:00 2001 From: Olivier Blin Date: Tue, 1 Apr 2008 14:19:21 +0000 Subject: allow to pass parameters to dbus_object::system_bus (so that Net::DBus::Reactor main loop can be disabled) --- perl-install/dbus_object.pm | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) diff --git a/perl-install/dbus_object.pm b/perl-install/dbus_object.pm index 1b4a4264e..dc9df0d54 100644 --- a/perl-install/dbus_object.pm +++ b/perl-install/dbus_object.pm @@ -1,8 +1,10 @@ package dbus_object; -sub system_bus() { +sub system_bus { + my %params = @_; + #- use nomainloop => 1 to disable Net::DBus::Reactor main loop require Net::DBus; - Net::DBus->system; + Net::DBus->system(%params); } sub new { -- cgit v1.2.1