1 files changed, 11 insertions, 4 deletions
diff --git a/perl-install/network/activefw.pm b/perl-install/network/activefw.pm
index a06cfe392..e73806ae8 100644
--- a/perl-install/network/activefw.pm
+++ b/perl-install/network/activefw.pm
@@ -18,13 +18,20 @@ sub new {
     set_DBus_watch($con);
     $con->dispatch;
 
-    my $service = $bus->get_service("com.mandrakesoft.activefirewall.daemon");
-    my $daemon = $service->get_object("/com/mandrakesoft/activefirewall", "com.mandrakesoft.activefirewall.daemon");
-
-    bless {
+    my $o = bless {
         bus => $bus,
         daemon => $daemon
     }, $type;
+
+    $o->find_daemon;
+
+    $o;
+}
+
+sub find_daemon {
+    my ($o) = @_;
+    my $service = $o->{bus}->get_service("com.mandrakesoft.activefirewall.daemon");
+    $o->{daemon} = $service->get_object("/com/mandrakesoft/activefirewall", "com.mandrakesoft.activefirewall.daemon");
 }
 
 sub set_DBus_watch {