From b5bc676d61e1e5f1f1840e8723f81dc24c344f98 Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Mon, 29 Sep 2003 14:18:09 +0000 Subject: perl_checker fixes --- perl-install/network/drakfirewall.pm | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) (limited to 'perl-install/network') diff --git a/perl-install/network/drakfirewall.pm b/perl-install/network/drakfirewall.pm index c5b8c6288..2c5bbd44d 100644 --- a/perl-install/network/drakfirewall.pm +++ b/perl-install/network/drakfirewall.pm @@ -106,13 +106,13 @@ sub default_from_pkgs { sub get_ports { my ($in, $_ports) = @_; - my $shorewall = network::shorewall::read($in,'silent') or return; + my $shorewall = network::shorewall::read($in, 'silent') or return; \$shorewall->{ports}; } sub set_ports { my ($in, $disabled, $ports) = @_; - my $shorewall = network::shorewall::read($in,'not_silent') || network::shorewall::default_interfaces($in) or die \N("No network card"); + my $shorewall = network::shorewall::read($in, 'not_silent') || network::shorewall::default_interfaces($in) or die \N("No network card"); if (!$disabled || -x "$::prefix/sbin/shorewall") { $in->do_pkgs->ensure_is_installed('shorewall', '/sbin/shorewall', $::isInstall) or return; @@ -130,7 +130,7 @@ sub get_conf { if ($o_ports) { $disabled, from_ports($o_ports); - } elsif (my $shorewall = network::shorewall::read($in,'silent')) { + } elsif (my $shorewall = network::shorewall::read($in, 'silent')) { $shorewall->{disabled}, from_ports(\$shorewall->{ports}); } else { $in->ask_okcancel('', N("drakfirewall configurator -- cgit v1.2.1