From 51e89cb35c3c844d9a79b4c38ea8f4f25dbcc8de Mon Sep 17 00:00:00 2001
From: teastep <teastep@fbd18981-670d-0410-9b5c-8dc0c1a9a2bb>
Date: Wed, 20 Jun 2007 21:43:13 +0000
Subject: [PATCH] Make buildports.pl work on other distributions

git-svn-id: https://shorewall.svn.sourceforge.net/svnroot/shorewall/trunk@6624 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 44977e37c..4ba660b9b 100644
--- a/Shorewall-perl/buildports.pl
+++ b/Shorewall-perl/buildports.pl
@@ -40,7 +40,7 @@ sub print_it( $$ ) {
     my $tabs;
     my $length = length $name;
 
-    if ( $name =~ /[-.]/ ) {
+    if ( $name =~ /\W/ || $name =~ /^\d/ ) {
 	$tabs = "\t" x int ( ( 27 - $length ) / 8 );
 	print "${offset}'${name}'${tabs}=> $number,\n";
     } else {