From 225600e25087516a3e1b416f3e45a142c0759fbf Mon Sep 17 00:00:00 2001
From: Olivier Blin <oblin@mandriva.org>
Date: Fri, 1 Jul 2005 02:07:04 +0000
Subject: remove unneeded requires, added in the wrong place...

---
 perl-install/network/activefw.pm | 5 -----
 1 file changed, 5 deletions(-)

diff --git a/perl-install/network/activefw.pm b/perl-install/network/activefw.pm
index 2b4392271..466661eef 100644
--- a/perl-install/network/activefw.pm
+++ b/perl-install/network/activefw.pm
@@ -70,7 +70,6 @@ sub call_method {
 
 sub blacklist {
     my ($o, $seq, $blacklist) = @_;
-    require Net::DBus::Binding::Watch;
     $o->call_method('Blacklist',
                     Net::DBus::Binding::Value->new(&Net::DBus::Binding::Message::TYPE_UINT32, $seq),
                     Net::DBus::Binding::Value->new(&Net::DBus::Binding::Message::TYPE_UINT32, $blacklist));
@@ -78,21 +77,18 @@ sub blacklist {
 
 sub unblacklist {
     my ($o, $addr) = @_;
-    require Net::DBus::Binding::Watch;
     $o->call_method('UnBlacklist',
                     Net::DBus::Binding::Value->new(&Net::DBus::Binding::Message::TYPE_UINT32, $addr));
 }
 
 sub whitelist {
     my ($o, $addr) = @_;
-    require Net::DBus::Binding::Watch;
     $o->call_method('Whitelist',
                     Net::DBus::Binding::Value->new(&Net::DBus::Binding::Message::TYPE_UINT32, $addr));
 }
 
 sub unwhitelist {
     my ($o, $addr) = @_;
-    require Net::DBus::Binding::Watch;
     $o->call_method('UnWhitelist',
                     Net::DBus::Binding::Value->new(&Net::DBus::Binding::Message::TYPE_UINT32, $addr));
 }
@@ -104,7 +100,6 @@ sub get_interactive {
 
 sub set_interactive {
     my ($o, $mode) = @_;
-    require Net::DBus::Binding::Watch;
     $o->call_method('SetMode',
                     Net::DBus::Binding::Value->new(&Net::DBus::Binding::Message::TYPE_UINT32, $mode));
 }
-- 
cgit v1.2.1