From dcf6a8902da534b39c056d5030ed0aec20a79379 Mon Sep 17 00:00:00 2001
From: teastep <teastep@fbd18981-670d-0410-9b5c-8dc0c1a9a2bb>
Date: Wed, 27 Jun 2007 00:48:56 +0000
Subject: [PATCH] Fix for damaged /etc/services files

git-svn-id: https://shorewall.svn.sourceforge.net/svnroot/shorewall/trunk@6687 fbd18981-670d-0410-9b5c-8dc0c1a9a2bb
---
 Shorewall-perl/buildports.pl | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/Shorewall-perl/buildports.pl b/Shorewall-perl/buildports.pl
index c3fcde185..4f03b8acf 100755
--- a/Shorewall-perl/buildports.pl
+++ b/Shorewall-perl/buildports.pl
@@ -140,7 +140,7 @@ while ( read_a_line1 ) {
 
     my ( $number, $proto ) = split '/', $proto_number;
 
-    next unless $proto eq 'tcp' || $proto eq 'udp';
+    next unless $proto && ($proto eq 'tcp' || $proto eq 'udp');
 
     print_service( $name1 , $number );