[prev in list] [next in list] [prev in thread] [next in thread]
List: apache-test-cvs
Subject: cvs commit: httpd-test/perl-framework/t/security CAN-2004-0942.t
From: jorton () apache ! org
Date: 2004-11-12 16:32:14
Message-ID: 20041112163214.16861.qmail () minotaur ! apache ! org
[Download RAW message or body]
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) || '';
[prev in list] [next in list] [prev in thread] [next in thread]
Configure |
About |
News |
Add a list |
Sponsored by KoreLogic