From 730077c2fcc9c2e32a0c7947275cee4c4846e40b Mon Sep 17 00:00:00 2001 From: teastep Date: Thu, 10 May 2007 16:25:20 +0000 Subject: [PATCH] A more compact version of 6318 git-svn-id: https://shorewall.svn.sourceforge.net/svnroot/shorewall/trunk@6319 fbd18981-670d-0410-9b5c-8dc0c1a9a2bb --- Shorewall-perl/Shorewall/Actions.pm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/Shorewall-perl/Shorewall/Actions.pm b/Shorewall-perl/Shorewall/Actions.pm index c8c937809..25abb7c7b 100644 --- a/Shorewall-perl/Shorewall/Actions.pm +++ b/Shorewall-perl/Shorewall/Actions.pm @@ -593,8 +593,8 @@ sub process_actions3 () { my $set = $tag[0]; - for my $index ( 1..2 ) { - fatal_error "Max connections and interval in Limit rules must be numeric" unless $tag[$index] =~ /^\d+$/ + for ( @tag[1,2] ) { + fatal_error "Max connections and interval in Limit rules must be numeric" unless /^\d+$/ } my $count = $tag[1] + 1;