=head1 VERSION
-Version 0.0035
+Version 0.0036
=cut
-our $VERSION = '0.0035';
+our $VERSION = '0.0036';
=head1 SYNOPSIS
? eval { $c->user->obj->$username_field }
: '');
- my $path_info = '/'.join '/' => map uri_escape_utf8($_), @{ $c->req->args };
+ my $path_info = '/'.join '/' => map {
+ utf8::is_utf8($_) ? uri_escape_utf8($_) : uri_escape($_)
+ } @{ $c->req->args };
my $env = HTTP::Request::AsCGI->new(
$req,
for (0..1000) {
print $_, br, "\n";
+ sleep 1;
}
because the coderef is executed synchronously with C<STDOUT> pointing to a temp