summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorOlivier Blin <oblin@mandriva.com>2008-04-01 14:19:21 +0000
committerOlivier Blin <oblin@mandriva.com>2008-04-01 14:19:21 +0000
commitd9f854e1b6511c109164798bf3d088802a06206d (patch)
treec617c19cdc094ca78527763c4ef78ede3b40bbd0 /perl-install
parentc9c3b7168517e9546bcdd57c77172b5d2694da98 (diff)
downloaddrakx-d9f854e1b6511c109164798bf3d088802a06206d.tar
drakx-d9f854e1b6511c109164798bf3d088802a06206d.tar.gz
drakx-d9f854e1b6511c109164798bf3d088802a06206d.tar.bz2
drakx-d9f854e1b6511c109164798bf3d088802a06206d.tar.xz
drakx-d9f854e1b6511c109164798bf3d088802a06206d.zip
allow to pass parameters to dbus_object::system_bus (so that Net::DBus::Reactor main loop can be disabled)
Diffstat (limited to 'perl-install')
-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 {