stas 2004/09/27 18:47:23
Modified: t/protocol/TestProtocol echo_block.pm echo_nonblock.pm
Log:
perl 5.6 doesn't like foo(bar => 0) syntax, so s/=>/,/ to make it happy
Revision Changes Path
1.8 +1 -1 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.7
retrieving revision 1.8
diff -u -u -r1.7 -r1.8
--- echo_block.pm 1 Jul 2004 02:01:21 -0000 1.7
+++ echo_block.pm 28 Sep 2004 01:47:23 -0000 1.8
@@ -24,7 +24,7 @@
# the socket to a blocking IO mode
my $nonblocking = $socket->opt_get(APR::SO_NONBLOCK);
if ($nonblocking) {
- $socket->opt_set(APR::SO_NONBLOCK => 0);
+ $socket->opt_set(APR::SO_NONBLOCK, 0);
# test that we really *are* in the blocking mode
!$socket->opt_get(APR::SO_NONBLOCK)
1.2 +2 -1 modperl-2.0/t/protocol/TestProtocol/echo_nonblock.pm
Index: echo_nonblock.pm
===================================================================
RCS file: /home/cvs/modperl-2.0/t/protocol/TestProtocol/echo_nonblock.pm,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -u -r1.1 -r1.2
--- echo_nonblock.pm 8 Sep 2004 00:42:02 -0000 1.1
+++ echo_nonblock.pm 28 Sep 2004 01:47:23 -0000 1.2
@@ -8,6 +8,7 @@
use Apache::Connection ();
use APR::Socket ();
use APR::Error ();
+
use Apache::TestTrace;
use Apache::Const -compile => 'OK';
@@ -20,7 +21,7 @@
my $c = shift;
my $socket = $c->client_socket;
- $socket->opt_set(APR::SO_NONBLOCK => 1);
+ $socket->opt_set(APR::SO_NONBLOCK, 1);
my $counter = 0;
my $timeout = 0;
