stas 2004/05/07 15:08:24
Modified: src/docs/2.0/api/APR Const.pod
Log:
$socket->opt_get API sync
Revision Changes Path
1.13 +7 -4 modperl-docs/src/docs/2.0/api/APR/Const.pod
Index: Const.pod
===================================================================
RCS file: /home/cvs/modperl-docs/src/docs/2.0/api/APR/Const.pod,v
retrieving revision 1.12
retrieving revision 1.13
diff -u -u -r1.12 -r1.13
--- Const.pod 19 Apr 2004 23:53:55 -0000 1.12
+++ Const.pod 7 May 2004 22:08:24 -0000 1.13
@@ -2012,14 +2012,17 @@
1 nonblocking
0 blocking
-For example, to set the socket to a blocking IO mode:
+For example, to set a socket to a blocking IO mode:
use APR::Socket ();
use APR::Const -compile => qw(SO_NONBLOCK);
...
- my $oldval = $sock->opt_set(APR::SO_NONBLOCK, 0);
- die "failed to set the socket to a blocking IO mode: $ARP::err"
- unless defined $oldval;
+ if ($socket->opt_get(APR::SO_NONBLOCK)) {
+ $socket->opt_set(APR::SO_NONBLOCK => 0);
+ }
+
+You don't have to query for this option, before setting it. It was
+done for the demonstration purpose.
=over
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
