diff options
| author | Olivier Blin <oblin@mandriva.com> | 2008-03-26 15:21:50 +0000 |
|---|---|---|
| committer | Olivier Blin <oblin@mandriva.com> | 2008-03-26 15:21:50 +0000 |
| commit | fc74b31b2b30454d91a81c9880c1142a4565e92e (patch) | |
| tree | c97a87d7da5eb496577fbbedbbcf6b52c32bab1a /lib | |
| parent | cbbe8f594f43927b7e9ebe66863033122da50e4b (diff) | |
| download | drakx-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')
| -rw-r--r-- | lib/network/shorewall.pm | 4 |
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}}), )); |