From c602ef6cd0264ba656d9248acf9b40dd57382b61 Mon Sep 17 00:00:00 2001 From: Olivier Blin Date: Thu, 26 May 2005 10:35:21 +0000 Subject: simplify check_iptables() --- perl-install/network/shorewall.pm | 6 ++---- 1 file changed, 2 insertions(+), 4 deletions(-) (limited to 'perl-install/network') diff --git a/perl-install/network/shorewall.pm b/perl-install/network/shorewall.pm index 82d3c5ec0..49fafb8f3 100644 --- a/perl-install/network/shorewall.pm +++ b/perl-install/network/shorewall.pm @@ -13,10 +13,8 @@ use log; sub check_iptables { - my ($in) = @_; - - my $existing_config = -f "$::prefix/etc/sysconfig/iptables"; - $existing_config ||= $::isStandalone && do { + -f "$::prefix/etc/sysconfig/iptables" || + $::isStandalone && do { system('modprobe iptable_nat'); -x '/sbin/iptables' && listlength(`/sbin/iptables -t nat -nL`) > 8; }; -- cgit v1.2.1