stas 2003/09/22 19:21:40
Modified: t/filter/TestFilter in_str_consume.pm
Log:
tell Apache to get rid of the rest of the request body
if we don't a client will get a broken pipe and may fail to
handle this situation gracefully
Revision Changes Path
1.10 +6 -0 modperl-2.0/t/filter/TestFilter/in_str_consume.pm
Index: in_str_consume.pm
===================================================================
RCS file: /home/cvs/modperl-2.0/t/filter/TestFilter/in_str_consume.pm,v
retrieving revision 1.9
retrieving revision 1.10
diff -u -u -r1.9 -r1.10
--- in_str_consume.pm 18 Sep 2003 08:10:32 -0000 1.9
+++ in_str_consume.pm 23 Sep 2003 02:21:40 -0000 1.10
@@ -106,6 +106,12 @@
if ($r->method_number == Apache::M_POST) {
my $data = ModPerl::Test::read_post($r);
+
+ # tell Apache to get rid of the rest of the request body
+ # if we don't a client will get a broken pipe and may fail to
+ # handle this situation gracefully
+ $r->discard_request_body;
+
my $len = length $data;
debug "HANDLER READ: $len bytes\n";
$r->print($len);
