summaryrefslogtreecommitdiffstats
path: root/perl-install/network/shorewall.pm
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2004-02-06 20:47:54 +0000
committerPascal Rigaux <pixel@mandriva.com>2004-02-06 20:47:54 +0000
commitb6696eb321c4e4d87f4d4aedcebcac792ebb220e (patch)
treed3e03e0571406af6f32749c9e32e398d591922f9 /perl-install/network/shorewall.pm
parentdb138f81c601e66e1e9e5c5cee2b99b819c39ebb (diff)
downloaddrakx-b6696eb321c4e4d87f4d4aedcebcac792ebb220e.tar
drakx-b6696eb321c4e4d87f4d4aedcebcac792ebb220e.tar.gz
drakx-b6696eb321c4e4d87f4d4aedcebcac792ebb220e.tar.bz2
drakx-b6696eb321c4e4d87f4d4aedcebcac792ebb220e.tar.xz
drakx-b6696eb321c4e4d87f4d4aedcebcac792ebb220e.zip
handle range (bugzilla #7172)
Diffstat (limited to 'perl-install/network/shorewall.pm')
-rw-r--r--perl-install/network/shorewall.pm4
1 files changed, 2 insertions, 2 deletions
diff --git a/perl-install/network/shorewall.pm b/perl-install/network/shorewall.pm
index 99d5c2b00..c957cbf51 100644
--- a/perl-install/network/shorewall.pm
+++ b/perl-install/network/shorewall.pm
@@ -114,8 +114,8 @@ sub write {
my %ports_by_proto;
foreach (split ' ', $conf->{ports}) {
- m!^(\d+)/(udp|tcp|icmp)$! or die "bad port $_\n";
- push @{$ports_by_proto{$2}}, $1;
+ m!^(\d+(:\d+)?)/(udp|tcp|icmp)$! or die "bad port $_\n";
+ push @{$ports_by_proto{$3}}, $1;
}
set_config_file("zones",