From fc74b31b2b30454d91a81c9880c1142a4565e92e Mon Sep 17 00:00:00 2001
From: Olivier Blin <oblin@mandriva.com>
Date: Wed, 26 Mar 2008 15:21:50 +0000
Subject: perl_checker fixes

---
 lib/network/shorewall.pm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'lib/network/shorewall.pm')

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}}),
     ));
-- 
cgit v1.2.1