Warn if assignment (#2360)
This commit is contained in:
parent
40113b6829
commit
ef0d10d91d
|
@ -29,7 +29,7 @@ sub perlExpr {
|
|||
split( /\n/, $@ ) );
|
||||
return ( -1, "__badExpression__: $err" ) if $err;
|
||||
return $val =~ qr/(?<=[^=<!>\|\?])=(?![=~])/
|
||||
? ( -1, "__badExpressionAssignment__" )
|
||||
? ( 1, "__badExpressionAssignment__" )
|
||||
: 1;
|
||||
}
|
||||
|
||||
|
|
Loading…
Reference in New Issue
Block a user