Does this help? On Thu, Mar 3, 2011 at 2:38 PM, Erik Wasser <erik.was...@iquer.net> 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 mose...@hank.org
_______________________________________________ List: Catalyst@lists.scsys.co.uk Listinfo: http://lists.scsys.co.uk/cgi-bin/mailman/listinfo/catalyst Searchable archive: http://www.mail-archive.com/catalyst@lists.scsys.co.uk/ Dev site: http://dev.catalyst.perl.org/