[Http-webtest-commits] HTTP-WebTest/t utils.pl,1.4,1.5

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

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

Modified Files:
	utils.pl 
Log Message:
Don't break on unexpected connection closing


Index: utils.pl
===================================================================
RCS file: /cvsroot/http-webtest/HTTP-WebTest/t/utils.pl,v
retrieving revision 1.4
retrieving revision 1.5
diff -C2 -d -r1.4 -r1.5
*** utils.pl	21 Feb 2002 01:02:10 -0000	1.4
--- utils.pl	18 Nov 2002 08:41:49 -0000	1.5
***************
*** 165,170 ****
      my $done = 0;
  
!     # close on SIGTERM
      $SIG{TERM} = sub { $done = 1 };
  
      # handle requests untill we are killed
--- 165,172 ----
      my $done = 0;
  
!     # exit on SIGTERM
      $SIG{TERM} = sub { $done = 1 };
+     # handle closed connection
+     $SIG{PIPE} = 'IGNORE';
  
      # handle requests untill we are killed
***************
*** 182,187 ****
  
  		while (my $request = $connect->get_request) {
! 		    $param{server_sub}->(connect => $connect,
! 					 request => $request);
  		}
  		$connect->close;
--- 184,189 ----
  
  		while (my $request = $connect->get_request) {
!                     $param{server_sub}->(connect => $connect,
!                                          request => $request);
  		}
  		$connect->close;