cvs commit: httpd-test/perl-framework/t/security CAN-2004-0942.t

[jorton]

jorton      2004/11/12 08:32:14

  Modified:    perl-framework/t/security CAN-2004-0942.t
  Log:
  Be resilient against the TCP connection being reset; skip for 1.3.
  
  Revision  Changes    Path
  1.2       +5 -3      httpd-test/perl-framework/t/security/CAN-2004-0942.t
  
  Index: CAN-2004-0942.t
  ===================================================================
  RCS file: /home/cvs/httpd-test/perl-framework/t/security/CAN-2004-0942.t,v
  retrieving revision 1.1
  retrieving revision 1.2
  diff -d -w -u -r1.1 -r1.2
  --- CAN-2004-0942.t   1 Nov 2004 16:28:35 -0000       1.1
  +++ CAN-2004-0942.t   12 Nov 2004 16:32:14 -0000      1.2
  @@ -5,7 +5,9 @@
   use Apache::TestUtil;
   use Apache::TestRequest;
   
  -plan tests => 2;
  +$SIG{PIPE} = 'IGNORE';
  +
  +plan tests => 2, need_min_apache_version('2.0');
   
   my $sock = Apache::TestRequest::vhost_socket('default');
   ok $sock;
  @@ -23,10 +25,10 @@
   
   my $n = $sock->print("Hello:\r\n");
   foreach (1..100) {
  -    $n = $sock->send(" "x500 . "\r\n") if $sock->connected;
  +    $n = $sock->print(" "x500 . "\r\n") if $sock->connected;
   }
   
  -$sock->send("\r\n") if $sock->connected;
  +$sock->print("\r\n") if $sock->connected;
   
   my $line = Apache::TestRequest::getline($sock) || '';