summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/network/activefw.pm15
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 {