Commit 11dc704a authored by Xavier Guimard's avatar Xavier Guimard

Optimize (#595)

parent 293f0eea
......@@ -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;
}
}
......
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