You are viewing a plain text version of this content. The canonical link for it is here.
Posted to test-cvs@httpd.apache.org by st...@apache.org on 2003/09/18 03:09:33 UTC
cvs commit: httpd-test/perl-framework/Apache-Test/lib/Apache TestClient.pm
stas 2003/09/17 18:09:33
Modified: perl-framework/Apache-Test/lib/Apache TestClient.pm
Log:
using send() avoids the need to use SIGPIPE if the server aborts the
connection
Revision Changes Path
1.7 +4 -2 httpd-test/perl-framework/Apache-Test/lib/Apache/TestClient.pm
Index: TestClient.pm
===================================================================
RCS file: /home/cvs/httpd-test/perl-framework/Apache-Test/lib/Apache/TestClient.pm,v
retrieving revision 1.6
retrieving revision 1.7
diff -u -u -r1.6 -r1.7
--- TestClient.pm 6 Jun 2003 01:46:13 -0000 1.6
+++ TestClient.pm 18 Sep 2003 01:09:33 -0000 1.7
@@ -46,8 +46,10 @@
"$method $url HTTP/1.0",
(map { "$_: $headers->{$_}" } keys %$headers), $CRLF;
- print $s $request;
- print $s $content if $content;
+ # using send() avoids the need to use SIGPIPE if the server aborts
+ # the connection
+ $s->send($request);
+ $s->send($content) if $content;
$request =~ s/\015//g; #for as_string