diff options
| author | Thierry Vignaud <tv@mageia.org> | 2012-03-20 19:52:33 +0000 |
|---|---|---|
| committer | Thierry Vignaud <tv@mageia.org> | 2012-03-20 19:52:33 +0000 |
| commit | b3111e7e9c262d8c71e23a6dc78d5d7a888dacc3 (patch) | |
| tree | d42205550d30ec092f9743748bcec938017f985b /lib/network/shorewall.pm | |
| parent | 683619174a6cd634655ac6a489b5a6efb1b5b3cc (diff) | |
| download | drakx-net-b3111e7e9c262d8c71e23a6dc78d5d7a888dacc3.tar drakx-net-b3111e7e9c262d8c71e23a6dc78d5d7a888dacc3.tar.gz drakx-net-b3111e7e9c262d8c71e23a6dc78d5d7a888dacc3.tar.bz2 drakx-net-b3111e7e9c262d8c71e23a6dc78d5d7a888dacc3.tar.xz drakx-net-b3111e7e9c262d8c71e23a6dc78d5d7a888dacc3.zip | |
perl_checker cleanups
Diffstat (limited to 'lib/network/shorewall.pm')
| -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 83442ba..49cf01a 100644 --- a/lib/network/shorewall.pm +++ b/lib/network/shorewall.pm @@ -29,7 +29,7 @@ sub set_config_file { $done = 1; } else { $_ = '' unless - /^#/ or $file eq 'rules' && /^SECTION/; + /^#/ || $file eq 'rules' && /^SECTION/; } } "$::prefix${shorewall_root}/$file"; } @@ -206,7 +206,7 @@ What do you want to do?"), if_($use_pptp, [ 'ACCEPT', 'fw', 'loc:10.0.0.138', 'gre' ]), (map_each { [ 'ACCEPT', 'net', 'fw', $::a, join(',', @$::b), '-' ] } %$ports_by_proto), (map_each { - if_($::b, map { [ 'ACCEPT+', 'fw', 'net', 'tcp', $::a, '-', '-', '-', $_ ] } @{$::b}); + if_($::b, map { [ 'ACCEPT+', 'fw', 'net', 'tcp', $::a, '-', '-', '-', $_ ] } @$::b); } %{$conf->{accept_local_users}}), (map { my $proto = $_; |