diff options
| -rw-r--r-- | perl-install/dbus_object.pm | 6 |
1 files 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 { |