dani/lemonldap-ng
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Optimize (#595)

Browse Source
This commit is contained in:
Xavier Guimard 2017-01-09 15:43:30 +00:00
parent 293f0eea71
commit 11dc704a57
1 changed files with 2 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
lemonldap-ng-common/lib/Lemonldap/NG/Common/FormEncode.pm
View File

@ -16,18 +16,13 @@ BEGIN {
eval <<'EOT'; eval <<'EOT';
sub build_urlencoded { sub build_urlencoded {
my(%h)=@_; my(%h)=@_;
my $v; return join('&',map {my $v=URI::Escape::uri_escape($h{$_});"$_=$v"} keys %h);
return join('&',map {$v=URI::Escape::uri_escape($h{$_});"$_=$v"} keys %h);
} }
EOT EOT
} }
else { else {
require WWW::Form::UrlEncoded; require WWW::Form::UrlEncoded;
eval <<'EOT'; *build_urlencoded = \&WWW::Form::UrlEncoded::build_urlencoded;
sub build_urlencoded {
return WWW::Form::UrlEncoded::build_urlencoded(@_);
}
EOT
} }
} }