From 204983347708192c367c66f0b96fb7684a4134d8 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Thu, 24 Mar 2005 12:09:30 +0000
Subject: - there is no reason to have string ref for ports - replace
 main_auto_install() with default_ports()

---
 perl-install/network/drakfirewall.pm | 20 ++++++++------------
 1 file changed, 8 insertions(+), 12 deletions(-)

(limited to 'perl-install/network/drakfirewall.pm')

diff --git a/perl-install/network/drakfirewall.pm b/perl-install/network/drakfirewall.pm
index fac1e7c10..006889b3e 100644
--- a/perl-install/network/drakfirewall.pm
+++ b/perl-install/network/drakfirewall.pm
@@ -90,8 +90,7 @@ sub check_ports_syntax {
 
 sub to_ports {
     my ($servers, $unlisted) = @_;
-    my $ports = join(' ', (map { $_->{ports} } @$servers), if_($unlisted, $unlisted));
-    \$ports;
+    join(' ', (map { $_->{ports} } @$servers), if_($unlisted, $unlisted));
 }
 
 sub from_ports {
@@ -99,7 +98,7 @@ sub from_ports {
 
     my @l;
     my @unlisted;
-    foreach (split ' ', $$ports) {
+    foreach (split ' ', $ports) {
 	if (my $s = port2server($_)) {
 	    push @l, $s;
 	} else {
@@ -120,6 +119,11 @@ sub default_from_pkgs {
     } @all_servers ];
 }
 
+sub default_ports {
+    my ($do_pkgs) = @_;
+    to_ports(default_from_pkgs($do_pkgs), '');
+}
+
 sub get_ports() {
     my $shorewall = network::shorewall::read() or return;
     \$shorewall->{ports};
@@ -134,7 +138,7 @@ sub set_ports {
 	$do_pkgs->ensure_binary_is_installed('shorewall', 'shorewall', $::isInstall) or return;
     
 	$shorewall->{disabled} = $disabled;
-	$shorewall->{ports} = $$ports;
+	$shorewall->{ports} = $ports;
 	network::shorewall::write($shorewall);
     }
 }
@@ -207,11 +211,3 @@ sub main {
 
     set_ports($in->do_pkgs, $disabled, $ports, $in);
 }
-
-sub main_auto_install {
-    my ($do_pkgs, $disabled) = @_;
-
-    my $possible_servers = default_from_pkgs($do_pkgs);
-
-    set_ports($do_pkgs, $disabled, to_ports($possible_servers, ''));
-}
-- 
cgit v1.2.1