[Http-webtest-commits] CVS: HTTP-WebTest/t 12-request.t,1.2,1.3

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

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

Modified Files:
	12-request.t 
Log Message:
Perl 5.005 compatiblity fixes


Index: 12-request.t
===================================================================
RCS file: /cvsroot/http-webtest/HTTP-WebTest/t/12-request.t,v
retrieving revision 1.2
retrieving revision 1.3
diff -C2 -d -r1.2 -r1.3
*** 12-request.t	24 Jul 2002 22:17:47 -0000	1.2
--- 12-request.t	31 Jul 2002 15:26:23 -0000	1.3
***************
*** 23,27 ****
  # test base_uri() and uri()
  {
!     for my $uri qw(http://test1 http://a.a.a http://www.a.b) {
  	$REQUEST->base_uri($uri);
  	ok($REQUEST->base_uri eq $uri);
--- 23,27 ----
  # test base_uri() and uri()
  {
!     for my $uri (qw(http://test1 http://a.a.a http://www.a.b)) {
  	$REQUEST->base_uri($uri);
  	ok($REQUEST->base_uri eq $uri);