From 78182a745975023267717cf08dc6e9f3fbf2420f Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Thu, 6 Jan 2005 09:04:57 +0000 Subject: cleanup unused variables --- perl-install/network/shorewall.pm | 3 --- 1 file changed, 3 deletions(-) diff --git a/perl-install/network/shorewall.pm b/perl-install/network/shorewall.pm index 687c73798..cafb128be 100644 --- a/perl-install/network/shorewall.pm +++ b/perl-install/network/shorewall.pm @@ -11,9 +11,6 @@ use run_program; use common; use log; -my @drakgw_ports = qw(domain bootps http https 631 imap pop3 smtp nntp ntp); -# Ports for CUPS (631), LPD/LPRng (515), SMB (137, 138, 139) -my @internal_ports = qw(631 515 137 138 139); sub check_iptables { my ($in) = @_; -- cgit v1.2.1