summaryrefslogtreecommitdiffstats
path: root/perl-install/network/activefw.pm
diff options
context:
space:
mode:
authorOlivier Blin <oblin@mandriva.org>2005-07-01 02:07:04 +0000
committerOlivier Blin <oblin@mandriva.org>2005-07-01 02:07:04 +0000
commit225600e25087516a3e1b416f3e45a142c0759fbf (patch)
tree905eae252572b16671dd830f375cabc5af86bd5a /perl-install/network/activefw.pm
parent60834825583477b006a80d9ae9ec8ff19b249ae5 (diff)
downloaddrakx-225600e25087516a3e1b416f3e45a142c0759fbf.tar
drakx-225600e25087516a3e1b416f3e45a142c0759fbf.tar.gz
drakx-225600e25087516a3e1b416f3e45a142c0759fbf.tar.bz2
drakx-225600e25087516a3e1b416f3e45a142c0759fbf.tar.xz
drakx-225600e25087516a3e1b416f3e45a142c0759fbf.zip
remove unneeded requires, added in the wrong place...
Diffstat (limited to 'perl-install/network/activefw.pm')
-rw-r--r--perl-install/network/activefw.pm5
1 files changed, 0 insertions, 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));
}