From 191a5aa53764d8ce3c2f363c53b4a077be58297f Mon Sep 17 00:00:00 2001
From: franck cuny <franck@lumberjaph.net>
Date: Mon, 13 Sep 2010 16:13:52 +0200
Subject: remote trailings args

---
 lib/Net/HTTP/Spore/Request.pm | 7 +++----
 1 file changed, 3 insertions(+), 4 deletions(-)

(limited to 'lib/Net')

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 );
-- 
cgit 1.4.1