X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=catagits%2FCatalyst-Runtime.git;a=blobdiff_plain;f=lib%2FCatalyst%2FRequest.pm;h=219a7c15dddbfc951e872aa05448d2aaef2d5d23;hp=4f85d247c162dc7a83a7734091f74e70a9eaae79;hb=fbb513f774337d5b48768491f0479b2b24e7fc4c;hpb=d06051f75205fa4e481d04eeb8387f5ac1b6833f diff --git a/lib/Catalyst/Request.pm b/lib/Catalyst/Request.pm index 4f85d24..219a7c1 100644 --- a/lib/Catalyst/Request.pm +++ b/lib/Catalyst/Request.pm @@ -510,14 +510,14 @@ sub uri_with { my( $self, $args ) = @_; carp( 'No arguments passed to uri_with()' ) unless $args; - + for my $value ( values %$args ) { - my $isa_ref = ref $value; - if( $isa_ref and $isa_ref ne 'ARRAY' ) { - croak( "Non-array reference ($isa_ref) passed to uri_with()" ); + for ( ref $value eq 'ARRAY' ? @$value : $value ) { + $_ = "$_"; + utf8::encode( $_ ); } - utf8::encode( $_ ) for grep{ defined } $isa_ref ? @$value : $value; }; + my $uri = $self->uri->clone; $uri->query_form( {