summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--perl-install/dbus_object.pm6
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 {