提交 a1cbe4b5 编写于 作者: T Thorsten Behrens 提交者: Martin Kletzander

Make syntax check notice assignments w/o surrounding spaces.

上级 72194905
......@@ -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;
}
......
Markdown is supported
0% .
You are about to add 0 people to the discussion. Proceed with caution.
先完成此消息的编辑!
想要评论请 注册