Fix regex to allow hash ref { key => val}->{key}
This commit is contained in:
parent
3bcbec1117
commit
08b8705282
|
@ -29,7 +29,7 @@ sub perlExpr {
|
||||||
split( /\n/, $@ ) );
|
split( /\n/, $@ ) );
|
||||||
return ( -1, "__badExpression__: $err" )
|
return ( -1, "__badExpression__: $err" )
|
||||||
if ( $err && $conf->{useSafeJail} );
|
if ( $err && $conf->{useSafeJail} );
|
||||||
return ( $val =~ qr/(?<=[^=<!>\|\?])=(?![=~])/ && $conf->{avoidAssignment} )
|
return ( $val =~ qr/(?<=[^=<!>\|\?])=(?![>=~])/ && $conf->{avoidAssignment} )
|
||||||
? ( 1, "__badExpressionAssignment__" )
|
? ( 1, "__badExpressionAssignment__" )
|
||||||
: 1;
|
: 1;
|
||||||
}
|
}
|
||||||
|
|
Loading…
Reference in New Issue
Block a user