Clean up configure.pl

- 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 e263a3c27d
commit 8b7d60065e

View File

@ -59,8 +59,8 @@ my $rcfilename;
if ( defined $vendor ) {
$rcfilename = 'shorewallrc.' . $vendor;
} else {
$rcfilename = 'shorewallrc.default';
$vendor = 'linux';
$rcfilename = 'shorewallrc.default';
$params{HOST} = 'linux';
}
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: $!";
print "HOST=$vendor\n";
print $outfile "HOST=$vendor\n";
for ( qw/ PREFIX
for ( qw/ HOST
PREFIX
SHAREDIR
LIBEXECDIR
PERLLIBDIR
@ -113,18 +111,3 @@ for ( qw/ PREFIX
close $outfile;
1;