You are viewing a plain text version of this content. The canonical link for it is here.
Posted to docs-cvs@perl.apache.org by st...@apache.org on 2005/08/01 18:13:52 UTC
svn commit: r226835 - in /perl/modperl/docs/trunk/src/docs/2.0/api/APR:
Error.pod Socket.pod Status.pod
Author: stas
Date: Mon Aug 1 09:13:40 2005
New Revision: 226835
URL: http://svn.apache.org/viewcvs?rev=226835&view=rev
Log:
my $buffer needs to be declared outside the eval {} block
Modified:
perl/modperl/docs/trunk/src/docs/2.0/api/APR/Error.pod
perl/modperl/docs/trunk/src/docs/2.0/api/APR/Socket.pod
perl/modperl/docs/trunk/src/docs/2.0/api/APR/Status.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=226835&r1=226834&r2=226835&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 Mon Aug 1 09:13:40 2005
@@ -125,7 +125,8 @@
use APR::Status ();
# ....
my $tries = 0;
- RETRY: my $rlen = eval { $sock->recv(my $buffer, SIZE) };
+ my $buffer;
+ RETRY: my $rlen = eval { $sock->recv($buffer, SIZE) };
if ($@)
die $@ unless ref $@ && APR::Status::is_EAGAIN($@);
if ($tries++ < 3) {
Modified: perl/modperl/docs/trunk/src/docs/2.0/api/APR/Socket.pod
URL: http://svn.apache.org/viewcvs/perl/modperl/docs/trunk/src/docs/2.0/api/APR/Socket.pod?rev=226835&r1=226834&r2=226835&view=diff
==============================================================================
--- perl/modperl/docs/trunk/src/docs/2.0/api/APR/Socket.pod (original)
+++ perl/modperl/docs/trunk/src/docs/2.0/api/APR/Socket.pod Mon Aug 1 09:13:40 2005
@@ -278,7 +278,8 @@
$sock->opt_set(APR::Const::SO_NONBLOCK, 1);
# ....
my $tries = 0;
- RETRY: my $rlen = eval { $socket->recv(my $buffer, SIZE) };
+ my $buffer;
+ RETRY: my $rlen = eval { $socket->recv($buffer, SIZE) };
if ($@)
die $@ unless ref $@ && APR::Status::is_EAGAIN($@);
if ($tries++ < 3) {
Modified: perl/modperl/docs/trunk/src/docs/2.0/api/APR/Status.pod
URL: http://svn.apache.org/viewcvs/perl/modperl/docs/trunk/src/docs/2.0/api/APR/Status.pod?rev=226835&r1=226834&r2=226835&view=diff
==============================================================================
--- perl/modperl/docs/trunk/src/docs/2.0/api/APR/Status.pod (original)
+++ perl/modperl/docs/trunk/src/docs/2.0/api/APR/Status.pod Mon Aug 1 09:13:40 2005
@@ -126,7 +126,8 @@
use APR::Status ();
# ....
my $tries = 0;
- RETRY: eval { $socket->recv(my $buffer, SIZE) };
+ my $buffer;
+ RETRY: my $rlen = eval { $socket->recv($buffer, SIZE) };
if ($@ && ref($@) && APR::Status::is_EAGAIN($@)) {
if ($tries++ < 3) {
goto RETRY;
---------------------------------------------------------------------
To unsubscribe, e-mail: docs-cvs-unsubscribe@perl.apache.org
For additional commands, e-mail: docs-cvs-help@perl.apache.org