Optimize (#595)
This commit is contained in:
parent
293f0eea71
commit
11dc704a57
|
@ -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…
Reference in New Issue
Block a user