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) || '';