Fix configure.pl

Signed-off-by: Tom Eastep <teastep@shorewall.net>
This commit is contained in:
Tom Eastep 2012-04-12 06:53:58 -07:00
parent 3c09368032
commit 06588c2e4a

View File

@ -66,10 +66,11 @@ if ( defined $vendor ) {
open $rcfile, '<', $rcfilename or die "Unable to open $rcfilename for input: $!"; open $rcfile, '<', $rcfilename or die "Unable to open $rcfilename for input: $!";
while ( <$rcfile> ) { while ( <$rcfile> ) {
next if /\s*#/; next if /^\s*#/;
s/\s*#.*//;
die "Invalid entry ($_) in $rcfile, line $." unless /\s*(\w+)=(.*)/; next if /^\s*$/;
chomp;
die "Invalid entry ($_) in $rcfilename, line $." unless /\s*(\w+)=(.*)/;
$options{$1} = $2; $options{$1} = $2;
} }