summaryrefslogtreecommitdiffstats
path: root/perl-install/install_steps_interactive.pm
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install/install_steps_interactive.pm')
-rw-r--r--perl-install/install_steps_interactive.pm4
1 files changed, 3 insertions, 1 deletions
diff --git a/perl-install/install_steps_interactive.pm b/perl-install/install_steps_interactive.pm
index 9b5fb997e..a23c6e060 100644
--- a/perl-install/install_steps_interactive.pm
+++ b/perl-install/install_steps_interactive.pm
@@ -1101,7 +1101,9 @@ sub summary {
},
clicked => sub {
require network::drakfirewall;
- network::drakfirewall::main($o, $o->{security} <= 3);
+ if (my @rc = network::drakfirewall::main($o, $o->{security} <= 3)) {
+ $o->{firewall_ports} = !$rc[0] && $rc[1];
+ }
},
} if detect_devices::getNet();