Commit 21834df3 authored by Xavier Guimard's avatar Xavier Guimard

Unescaped left brace in regex is deprecated

git-svn-id: svn://svn.forge.objectweb.org/svnroot/lemonldap/branches/lemonldap-ng_version_1_4-bugfixes@4755 1dbb9719-a921-0410-b57f-c3a383c2c641
parent b5bf8bd0
......@@ -475,7 +475,7 @@ sub conditionSub {
# Replace some strings in condition
$cond =~ s/\$date/&POSIX::strftime("%Y%m%d%H%M%S",localtime())/e;
$cond =~ s/\$(?!ENV)(\w+)/\$datas->{$1}/g;
$cond =~ s/\$datas->{vhost}/\$apacheRequest->hostname/g;
$cond =~ s/\$datas->\{vhost\}/\$apacheRequest->hostname/g;
my $jail = Lemonldap::NG::Handler::Main::Jail->new(
'safe' => $self->safe,
......
......@@ -123,7 +123,7 @@ sub jail_reval {
# the "no safe wrap" reval
my $nosw_reval = $reval;
if ( $reval !~ /^sub\{return\(.*\}$/ ) {
$nosw_reval =~ s/^sub{(.*)}$/sub{return($1)}/;
$nosw_reval =~ s/^sub\{(.*)\}$/sub{return($1)}/;
}
return (
......
Markdown is supported
0%
or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment