Does this help?
On Thu, Mar 3, 2011 at 2:38 PM, Erik Wasser <[email protected]> wrote:
> foreach my $u ('http://localhost/test/%E3%81%8B',
> "http://localhost/test/\x{304b}"; )
> {
> my $request = HTTP::Request->new(
> 'GET'=> *encode_utf8($u)*, [ 'Content-Type' => 'text/html;
> charset=utf8', ],
> );
> print $request->as_string();
> my $response = request( $request );
> is( $response->content, 'length = 1', 'length = 1' );
> }
>
>
--
Bill Moseley
[email protected]
_______________________________________________
List: [email protected]
Listinfo: http://lists.scsys.co.uk/cgi-bin/mailman/listinfo/catalyst
Searchable archive: http://www.mail-archive.com/[email protected]/
Dev site: http://dev.catalyst.perl.org/
