Make syntax check notice assignments w/o surrounding spaces.

This commit is contained in:
Thorsten Behrens 2014-01-20 12:27:28 +01:00 committed by Martin Kletzander
parent 721949059b
commit a1cbe4b5a9
1 changed files with 8 additions and 0 deletions

View File

@ -144,6 +144,14 @@ foreach my $file (@ARGV) {
$ret = 1;
last;
}
# Require spaces around assignment '=' and compounds
while ($data =~ /[^!<>&|\-+*\/%\^'= ]=[^=]/ ||
$data =~ /[^!<>&|\-+*\/%\^'=]=[^= \\\n]/) {
print "$file:$.: $line";
$ret = 1;
last;
}
}
close FILE;
}