http-webtest-commits

[Ilya M. <m_...@us...>]

Update of /cvsroot/http-webtest/HTTP-WebTest/lib/HTTP/WebTest
In directory sc8-pr-cvs1:/tmp/cvs-serv14032/lib/HTTP/WebTest

Modified Files:
	Request.pm 
Log Message:
Do not parse request uri unless we are given 'params' parameter


Index: Request.pm
===================================================================
RCS file: /cvsroot/http-webtest/HTTP-WebTest/lib/HTTP/WebTest/Request.pm,v
retrieving revision 1.5
retrieving revision 1.6
diff -C2 -d -r1.5 -r1.6
*** Request.pm	2 Mar 2003 11:52:10 -0000	1.5
--- Request.pm	14 Jul 2003 08:21:08 -0000	1.6
***************
*** 97,111 ****
  	$self->base_uri(@_);
  	my $new_uri = $self->base_uri;
! 	if(defined $new_uri) {
! 	    my @params = $new_uri->query_form;
! 	    $new_uri->query(undef);
! 	    $self->params(\@params);
! 	}
      }
  
      my $uri = $self->base_uri;
  
!     $uri->query_form(@{$self->params})
! 	if defined($self->method) and $self->method eq 'GET';
  
      return $uri;
--- 97,108 ----
  	$self->base_uri(@_);
  	my $new_uri = $self->base_uri;
!         $self->params([]);
      }
  
      my $uri = $self->base_uri;
  
!     if(@{$self->params} and $self->method and $self->method eq 'GET') {
!         $uri->query_form(@{$self->params});
!     }
  
      return $uri;