summaryrefslogtreecommitdiffstats
path: root/perl-install/network/drakfirewall.pm
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2003-09-29 14:18:09 +0000
committerPascal Rigaux <pixel@mandriva.com>2003-09-29 14:18:09 +0000
commitb5bc676d61e1e5f1f1840e8723f81dc24c344f98 (patch)
tree6f4c9dccdd4ab049e3a04ec242503bb64c4f988d /perl-install/network/drakfirewall.pm
parent008c48568c58665dcd4542f653f69bded0187dea (diff)
downloaddrakx-backup-do-not-use-b5bc676d61e1e5f1f1840e8723f81dc24c344f98.tar
drakx-backup-do-not-use-b5bc676d61e1e5f1f1840e8723f81dc24c344f98.tar.gz
drakx-backup-do-not-use-b5bc676d61e1e5f1f1840e8723f81dc24c344f98.tar.bz2
drakx-backup-do-not-use-b5bc676d61e1e5f1f1840e8723f81dc24c344f98.tar.xz
drakx-backup-do-not-use-b5bc676d61e1e5f1f1840e8723f81dc24c344f98.zip
perl_checker fixes
Diffstat (limited to 'perl-install/network/drakfirewall.pm')
-rw-r--r--perl-install/network/drakfirewall.pm6
1 files changed, 3 insertions, 3 deletions
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