http-webtest-commits

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

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

Modified Files:
	utils.pl 
Log Message:
Minor fixes


Index: utils.pl
===================================================================
RCS file: /cvsroot/http-webtest/HTTP-WebTest/t/utils.pl,v
retrieving revision 1.2
retrieving revision 1.3
diff -C2 -d -r1.2 -r1.3
*** utils.pl	12 Feb 2002 12:47:35 -0000	1.2
--- utils.pl	17 Feb 2002 14:15:29 -0000	1.3
***************
*** 103,113 ****
  	my $url = abs_url($server_url, '/')->as_string;
  	$$output_ref =~ s|\Q$url\E
!                          |$1http://http.web.test/|xg;
      }
  
      # change urls on some canonical in test output
      if(defined $server_hostname) {
! 	$$output_ref =~ s|( URL: \s+ ) http://\Q$server_hostname\E:\d+/
!                          |$1http://http.web.test/|xg;
      }
  }
--- 103,113 ----
  	my $url = abs_url($server_url, '/')->as_string;
  	$$output_ref =~ s|\Q$url\E
!                          |http://http.web.test/|xg;
      }
  
      # change urls on some canonical in test output
      if(defined $server_hostname) {
! 	$$output_ref =~ s|http://\Q$server_hostname\E:\d+/
!                          |http://http.web.test/|xg;
      }
  }