diff options
Diffstat (limited to 'perl-install')
| -rw-r--r-- | perl-install/network/shorewall.pm | 4 |
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", |