Warn if assignment (#2360)

This commit is contained in:
Christophe Maudoux 2020-12-01 22:58:14 +01:00
parent 40113b6829
commit ef0d10d91d

View File

@ -29,7 +29,7 @@ sub perlExpr {
split( /\n/, $@ ) );
return ( -1, "__badExpression__: $err" ) if $err;
return $val =~ qr/(?<=[^=<!>\|\?])=(?![=~])/
? ( -1, "__badExpressionAssignment__" )
? ( 1, "__badExpressionAssignment__" )
: 1;
}