diff options
author | franck cuny <franck@lumberjaph.net> | 2010-09-13 16:13:52 +0200 |
---|---|---|
committer | franck cuny <franck@lumberjaph.net> | 2010-09-13 16:13:52 +0200 |
commit | 191a5aa53764d8ce3c2f363c53b4a077be58297f (patch) | |
tree | ab5d95f070eb41272d0682a73b71c4136f081e39 | |
parent | remove specs (diff) | |
download | net-http-spore-191a5aa53764d8ce3c2f363c53b4a077be58297f.tar.gz |
remote trailings args
-rw-r--r-- | lib/Net/HTTP/Spore/Request.pm | 7 |
1 files changed, 3 insertions, 4 deletions
diff --git a/lib/Net/HTTP/Spore/Request.pm b/lib/Net/HTTP/Spore/Request.pm index 655f128..908cce7 100644 --- a/lib/Net/HTTP/Spore/Request.pm +++ b/lib/Net/HTTP/Spore/Request.pm @@ -39,7 +39,6 @@ sub _path { my $path = $self->env->{PATH_INFO}; my @params = @{ $self->env->{'spore.params'} || [] }; - my $j = 0; for (my $i = 0; $i < scalar @params; $i++) { my $key = $params[$i]; @@ -86,7 +85,7 @@ sub uri { my $path_info = shift; my $query_string = shift; - if ( !$path_info || !$query_string ) { + if ( !defined $path_info || !defined $query_string ) { my @path_info = $self->_path; $path_info = $path_info[0] if !$path_info; $query_string = $path_info[1] if !$query_string; @@ -98,7 +97,7 @@ sub uri { my $path = URI::Escape::uri_escape($path_info || '', $path_escape_class); - if (defined $query_string) { + if ($query_string) { $path .= '?' . $query_string; } @@ -144,7 +143,7 @@ sub finalize { $self->env->{PATH_INFO} = $path_info; $self->env->{QUERY_STRING} = $query_string || ''; - my $uri = $self->uri($path_info, $query_string); + my $uri = $self->uri($path_info, $query_string || ''); my $request = HTTP::Request->new( $self->method => $uri, $self->headers ); |