[Http-webtest-commits] CVS: HTTP-WebTest/lib/HTTP/WebTest Request.pm,1.3,1.4

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

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

Modified Files:
	Request.pm 
Log Message:
Perl 5.005 compatibility fixes


Index: Request.pm
===================================================================
RCS file: /cvsroot/http-webtest/HTTP-WebTest/lib/HTTP/WebTest/Request.pm,v
retrieving revision 1.3
retrieving revision 1.4
diff -C2 -d -r1.3 -r1.4
*** Request.pm	24 Jul 2002 22:18:12 -0000	1.3
--- Request.pm	31 Jul 2002 15:25:21 -0000	1.4
***************
*** 141,145 ****
  
      # DANGER: EVIL HACK
!     for my $header qw(Content-Type Content-Length) {
  	if(defined $header) {
  	    $self->header($header => $req->header($header));
--- 141,145 ----
  
      # DANGER: EVIL HACK
!     for my $header (qw(Content-Type Content-Length)) {
  	if(defined $header) {
  	    $self->header($header => $req->header($header));