diff options
Diffstat (limited to 'perl-install')
| -rw-r--r-- | perl-install/network/shorewall.pm | 13 |
1 files changed, 6 insertions, 7 deletions
diff --git a/perl-install/network/shorewall.pm b/perl-install/network/shorewall.pm index 489beb8d6..d6e88eb4e 100644 --- a/perl-install/network/shorewall.pm +++ b/perl-install/network/shorewall.pm @@ -46,8 +46,8 @@ sub get_config_file { map { [ split ' ' ] } grep { !/^#/ } cat_("$::prefix/etc/shorewall/$file"); } -sub default_interfaces_silent($) { - my ($in) = @_; +sub default_interfaces_silent { + my ($_in) = @_; my %conf; my @l = detect_devices::getNet() or return; if (@l == 1) { @@ -59,7 +59,7 @@ sub default_interfaces_silent($) { \%conf; } -sub default_interfaces($) { +sub default_interfaces { my ($in) = @_; my %conf; my $card_netconnect = network::netconnect::get_net_device() || "eth0"; @@ -88,10 +88,9 @@ Examples: \%conf; } -sub read($$) { - my %conf; - my ($in,$mode) = @_; - $conf{disabled} = !glob_("$::prefix/etc/rc3.d/S*shorewall"); +sub read { + my ($in, $mode) = @_; + my %conf = { disabled => !glob_("$::prefix/etc/rc3.d/S*shorewall") }; $conf{ports} = join(' ', map { |