diff options
| author | Olivier Blin <oblin@mandriva.org> | 2005-07-01 02:07:04 +0000 |
|---|---|---|
| committer | Olivier Blin <oblin@mandriva.org> | 2005-07-01 02:07:04 +0000 |
| commit | 225600e25087516a3e1b416f3e45a142c0759fbf (patch) | |
| tree | 905eae252572b16671dd830f375cabc5af86bd5a /perl-install/network/activefw.pm | |
| parent | 60834825583477b006a80d9ae9ec8ff19b249ae5 (diff) | |
| download | drakx-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.pm | 5 |
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)); } |