holm/shorewall_code
1
0
Fork 0
forked from extern/shorewall_code
Code Pull Requests Activity

Make buildports.pl work on other distributions

Browse Source 
git-svn-id: https://shorewall.svn.sourceforge.net/svnroot/shorewall/trunk@6624 fbd18981-670d-0410-9b5c-8dc0c1a9a2bb
This commit is contained in:
teastep 2007-06-20 21:43:13 +00:00
parent bbd506ebd6
commit 51e89cb35c
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
Shorewall-perl/buildports.pl
View File

@ -40,7 +40,7 @@ sub print_it( $$ ) {
my $tabs; my $tabs;
my $length = length $name; my $length = length $name;
if ( $name =~ /[-.]/ ) { if ( $name =~ /\W/ || $name =~ /^\d/ ) {
$tabs = "\t" x int ( ( 27 - $length ) / 8 ); $tabs = "\t" x int ( ( 27 - $length ) / 8 );
print "${offset}'${name}'${tabs}=> $number,\n"; print "${offset}'${name}'${tabs}=> $number,\n";
} else { } else {