stas 2004/05/06 18:13:05
Modified: t/protocol/TestProtocol echo_block.pm
Log:
reversed logic is confusing
Revision Changes Path
1.3 +2 -2 modperl-2.0/t/protocol/TestProtocol/echo_block.pm
Index: echo_block.pm
===================================================================
RCS file: /home/cvs/modperl-2.0/t/protocol/TestProtocol/echo_block.pm,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -u -r1.2 -r1.3
--- echo_block.pm 4 May 2004 06:14:44 -0000 1.2
+++ echo_block.pm 7 May 2004 01:13:05 -0000 1.3
@@ -27,8 +27,8 @@
if ($nonblocking) {
$socket->opt_set(APR::SO_NONBLOCK => 0);
- # test that we really are in the non-blocking mode
- $socket->opt_get(APR::SO_NONBLOCK)
+ # test that we really are in the blocking mode
+ !$socket->opt_get(APR::SO_NONBLOCK)
or die "failed to set non-blocking mode";
}
