perl-docs-cvs mailing list archives

Site index · List index
Message view « Date » · « Thread »
Top « Date » · « Thread »
From s...@apache.org
Subject svn commit: r190253 - /perl/modperl/docs/trunk/src/docs/2.0/api/APR/Error.pod
Date Sun, 12 Jun 2005 11:39:33 GMT
Author: stas
Date: Sun Jun 12 04:39:33 2005
New Revision: 190253

URL: http://svn.apache.org/viewcvs?rev=190253&view=rev
Log:
use $sock consistently

Modified:
    perl/modperl/docs/trunk/src/docs/2.0/api/APR/Error.pod

Modified: perl/modperl/docs/trunk/src/docs/2.0/api/APR/Error.pod
URL: http://svn.apache.org/viewcvs/perl/modperl/docs/trunk/src/docs/2.0/api/APR/Error.pod?rev=190253&r1=190252&r2=190253&view=diff
==============================================================================
--- perl/modperl/docs/trunk/src/docs/2.0/api/APR/Error.pod (original)
+++ perl/modperl/docs/trunk/src/docs/2.0/api/APR/Error.pod Sun Jun 12 04:39:33 2005
@@ -95,7 +95,7 @@
   use APR::Const -compile => qw(TIMEUP);
   $sock->timeout_set(1_000_000); # 1 sec
   my $buff;
-  eval { $socket->recv($buff, BUFF_LEN) };
+  eval { $sock->recv($buff, BUFF_LEN) };
   if ($@ && ref $@ && $@ == APR::Const::TIMEUP) {
 
   }
@@ -125,7 +125,7 @@
   use APR::Status ();
   # ....
   my $tries = 0;
-  RETRY: my $rlen = eval { $socket->recv(my $buffer, SIZE) };
+  RETRY: my $rlen = eval { $sock->recv(my $buffer, SIZE) };
   if ($@)
       die $@ unless ref $@ && APR::Status::is_EAGAIN($@);
       if ($tries++ < 3) {



---------------------------------------------------------------------
To unsubscribe, e-mail: docs-cvs-unsubscribe@perl.apache.org
For additional commands, e-mail: docs-cvs-help@perl.apache.org


Mime
View raw message