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

Clean up configure.pl

Browse Source 
- Remove blank lines at the end
- Simply the handling of vendor

Signed-off-by: Tom Eastep <teastep@shorewall.net>
This commit is contained in:
Tom Eastep 2012-04-11 08:01:49 -07:00
parent e791a63671
commit 6404c57cf8
1 changed files with 4 additions and 21 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

25
Shorewall-core/configure.pl
View File

@ -59,8 +59,8 @@ my $rcfilename;
if ( defined $vendor ) { if ( defined $vendor ) {
$rcfilename = 'shorewallrc.' . $vendor; $rcfilename = 'shorewallrc.' . $vendor;
} else { } else {
$rcfilename = 'shorewallrc.default'; $rcfilename = 'shorewallrc.default';
$vendor = 'linux'; $params{HOST} = 'linux';
} }
open $rcfile, '<', $rcfilename or die "Unable to open $rcfilename for input: $!"; open $rcfile, '<', $rcfilename or die "Unable to open $rcfilename for input: $!";
@ -83,10 +83,8 @@ my $outfile;
open $outfile, '>', 'shorewallrc' or die "Can't open 'shorewallrc' for output: $!"; open $outfile, '>', 'shorewallrc' or die "Can't open 'shorewallrc' for output: $!";
print "HOST=$vendor\n"; for ( qw/ HOST
print $outfile "HOST=$vendor\n"; PREFIX
for ( qw/ PREFIX
SHAREDIR SHAREDIR
LIBEXECDIR LIBEXECDIR
PERLLIBDIR PERLLIBDIR
@ -113,18 +111,3 @@ for ( qw/ PREFIX
close $outfile; close $outfile;
1; 1;