From d9f854e1b6511c109164798bf3d088802a06206d Mon Sep 17 00:00:00 2001
From: Olivier Blin <oblin@mandriva.com>
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(-)

(limited to 'perl-install')

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