summaryrefslogtreecommitdiffstats
path: root/lib/network/shorewall.pm
diff options
context:
space:
mode:
authorOlivier Blin <oblin@mandriva.com>2008-03-26 15:21:50 +0000
committerOlivier Blin <oblin@mandriva.com>2008-03-26 15:21:50 +0000
commitfc74b31b2b30454d91a81c9880c1142a4565e92e (patch)
treec97a87d7da5eb496577fbbedbbcf6b52c32bab1a /lib/network/shorewall.pm
parentcbbe8f594f43927b7e9ebe66863033122da50e4b (diff)
downloaddrakx-net-fc74b31b2b30454d91a81c9880c1142a4565e92e.tar
drakx-net-fc74b31b2b30454d91a81c9880c1142a4565e92e.tar.gz
drakx-net-fc74b31b2b30454d91a81c9880c1142a4565e92e.tar.bz2
drakx-net-fc74b31b2b30454d91a81c9880c1142a4565e92e.tar.xz
drakx-net-fc74b31b2b30454d91a81c9880c1142a4565e92e.zip
perl_checker fixes
Diffstat (limited to 'lib/network/shorewall.pm')
-rw-r--r--lib/network/shorewall.pm4
1 files changed, 2 insertions, 2 deletions
diff --git a/lib/network/shorewall.pm b/lib/network/shorewall.pm
index 136656c..defc9d9 100644
--- a/lib/network/shorewall.pm
+++ b/lib/network/shorewall.pm
@@ -44,7 +44,7 @@ sub dev_to_shorewall {
}
sub get_net_zone_interfaces {
- my ($net, $all_intf) = @_;
+ my ($_net, $all_intf) = @_;
#- read shorewall configuration first
my @interfaces = map { $_->[1] } grep { $_->[0] eq 'net' } get_config_file('interfaces');
#- else try to find the best interface available
@@ -192,7 +192,7 @@ What do you want to do?"),
(map {
#- WARNING: won't redirect ports from the firewall system if a local zone exists
map_each {
- [ 'REDIRECT', $has_loc_zone ? 'loc' : 'fw', $::b, $_, $::a, '-' ]
+ [ 'REDIRECT', $has_loc_zone ? 'loc' : 'fw', $::b, $_, $::a, '-' ];
} %{$conf->{redirects}{$_}};
} keys %{$conf->{redirects}}),
));