environments/ppa-mbqj77/deployments/1
Xavier Guimard 9 years ago
parent 293f0eea71
commit 11dc704a57
  1. 9
      lemonldap-ng-common/lib/Lemonldap/NG/Common/FormEncode.pm

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

Loading…
Cancel
Save