[...]Stas Bekman wrote:
The access log says that the failing test wasn't really failing, as you can see the stamp 200, so it must be some glitch on the data transport level. Could it be a fault of LWP? Try the same test after you have set:
APACHE_TEST_PRETEND_NO_LWP=1, in which case it won't use LWP as the client and talk directly through the socket...
not ok 2
OK, so that's not it. Any difference with this patch?
Index: t/filter/TestFilter/in_str_bin_data.pm
===================================================================
RCS file: /home/cvs/modperl-2.0/t/filter/TestFilter/in_str_bin_data.pm,v
retrieving revision 1.2
diff -u -r1.2 in_str_bin_data.pm
--- t/filter/TestFilter/in_str_bin_data.pm 16 Mar 2004 01:21:30 -0000 1.2
+++ t/filter/TestFilter/in_str_bin_data.pm 19 Aug 2004 22:43:43 -0000
@@ -29,9 +29,8 @@
my $r = shift;
if ($r->method_number == Apache::M_POST) {
- my $data = ModPerl::Test::read_post($r);
- my $length = length $data;
- debug "pass through $length bytes of $data\n";
+ my $len = $r->read(my $data, $r->headers_in->{'Content-Length'});
+ debug "pass through $len bytes of $data\n";
$r->print($data);
}
-- __________________________________________________________________ Stas Bekman JAm_pH ------> Just Another mod_perl Hacker http://stason.org/ mod_perl Guide ---> http://perl.apache.org mailto:[EMAIL PROTECTED] http://use.perl.org http://apacheweek.com http://modperlbook.org http://apache.org http://ticketmaster.com
--------------------------------------------------------------------- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]
