stas 2004/05/06 18:13:57
Modified: t/protocol/TestProtocol echo_block.pm
Log:
comment fix
Revision Changes Path
1.4 +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.3
retrieving revision 1.4
diff -u -u -r1.3 -r1.4
--- echo_block.pm 7 May 2004 01:13:05 -0000 1.3
+++ echo_block.pm 7 May 2004 01:13:57 -0000 1.4
@@ -27,9 +27,9 @@
if ($nonblocking) {
$socket->opt_set(APR::SO_NONBLOCK => 0);
- # test that we really are in the blocking mode
+ # test that we really *are* in the blocking mode
!$socket->opt_get(APR::SO_NONBLOCK)
- or die "failed to set non-blocking mode";
+ or die "failed to set blocking mode";
}
while (1) {
