http-webtest-commits

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

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

Modified Files:
	Request.pm 
Log Message:
Support file uploads


Index: Request.pm
===================================================================
RCS file: /cvsroot/http-webtest/HTTP-WebTest/lib/HTTP/WebTest/Request.pm,v
retrieving revision 1.2
retrieving revision 1.3
diff -C2 -d -r1.2 -r1.3
*** Request.pm	24 Jul 2002 21:15:26 -0000	1.2
--- Request.pm	24 Jul 2002 22:18:12 -0000	1.3
***************
*** 127,131 ****
  	unless defined($self->method) and $self->method eq 'POST';
  
!     my $req = POST $self->uri, $self->params;
  
      # DANGER: EVIL HACK
--- 127,142 ----
  	unless defined($self->method) and $self->method eq 'POST';
  
!     my $has_filepart = grep ref($_), @{$self->params};
! 
!     my @post;
!     if($has_filepart) {
! 	@post = ($self->uri,
! 		 Content_Type => 'form-data',
! 		 Content => $self->params);
!     } else {
! 	@post = ($self->uri, $self->params);
!     }
! 
!     my $req = POST @post;
  
      # DANGER: EVIL HACK