Fix regex to allow hash ref { key => val}->{key}

This commit is contained in:
Christophe Maudoux 2021-01-26 19:05:39 +01:00
parent 3bcbec1117
commit 08b8705282

View File

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