Improve ^
This commit is contained in:
parent
6133a7175b
commit
7143d82ebf
|
@ -552,7 +552,7 @@ sub substitute {
|
|||
$expr =~ s/\$ip\b/\$ENV{REMOTE_ADDR}/sg;
|
||||
|
||||
# substitute vars with session data, excepts special vars $_ and $\d+
|
||||
$expr =~ s/\$(?!ENV|env)([_a-zA-Z]\w*)/\$s->{$1}/sg;
|
||||
$expr =~ s/\$(?!(?:ENV|env)\b)([_a-zA-Z]\w*)/\$s->{$1}/sg;
|
||||
$expr =~ s/\$ENV\{/\$r->{env}->\{/g;
|
||||
$expr =~ s/\$env->\{/\$r->{env}->\{/g;
|
||||
|
||||
|
|
Loading…
Reference in New Issue
Block a user