Make syntax check notice assignments w/o surrounding spaces.

This commit is contained in:
Thorsten Behrens authored and Martin Kletzander committed 2014-01-20 14:35:26 +01:00
1 parent 721949059b
commit a1cbe4b5a9
1 file changed
+8
+8
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;
}