Fix some whitespace issues in t/argument-check.t
This commit is contained in:
@@ -72,7 +72,7 @@ sub parseConfigFile
|
||||
|
||||
open( FILE, "<", $file ) or die "Cannot read file '$file' - $!";
|
||||
|
||||
my $line = "";
|
||||
my $line = "";
|
||||
|
||||
while (defined($line = <FILE>) )
|
||||
{
|
||||
@@ -106,7 +106,7 @@ sub parseConfigFile
|
||||
$key =~ s/\s+$//;
|
||||
$val =~ s/^\s+//;
|
||||
$val =~ s/\s+$//;
|
||||
|
||||
|
||||
next if ( $key =~ /--/ );
|
||||
|
||||
# Store value.
|
||||
@@ -120,8 +120,6 @@ sub parseConfigFile
|
||||
}
|
||||
|
||||
|
||||
|
||||
|
||||
=head2 readFile
|
||||
|
||||
Read a named file and return an array of its contents.
|
||||
|
||||
Reference in New Issue
Block a user