From ed34673d3b633aebed12f76a77a18927605ae4dc Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Fri, 16 Jan 2004 12:52:16 +0000
Subject: - add icmp support - add "Echo request (ping)" choice

---
 perl-install/network/shorewall.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'perl-install/network/shorewall.pm')

diff --git a/perl-install/network/shorewall.pm b/perl-install/network/shorewall.pm
index bd069f063..5dcdb70d2 100644
--- a/perl-install/network/shorewall.pm
+++ b/perl-install/network/shorewall.pm
@@ -114,7 +114,7 @@ sub write {
 
     my %ports_by_proto;
     foreach (split ' ', $conf->{ports}) {
-	m!^(\d+)/(udp|tcp)$! or die "bad port $_\n";
+	m!^(\d+)/(udp|tcp|icmp)$! or die "bad port $_\n";
 	push @{$ports_by_proto{$2}}, $1;
     }
 
-- 
cgit v1.2.1