William McKee wrote:
t/TEST t/protocol/echo_block.t -v
# Failed test 2 in t/protocol/echo_block.t at line 22
# expected: hello
# received:
# Failed test 3 in t/protocol/echo_block.t at line 22 fail #2
not ok 2
# expected: world
# received:
not ok 3
see if this patch helps:
Index: t/protocol/TestProtocol/echo_block.pm
===================================================================
--- t/protocol/TestProtocol/echo_block.pm (revision 153514)
+++ t/protocol/TestProtocol/echo_block.pm (working copy)
@@ -33,6 +33,8 @@
or die "failed to set blocking mode";
}
+ $socket->opt_set(APR::SO_NONBLOCK, 0);
+
while ($socket->recv(my $buffer, BUFF_LEN)) {
die "recv() has returned untainted 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