perl-docs-cvs mailing list archives

Site index · List index
Message view « Date » · « Thread »
Top « Date » · « Thread »
From s...@apache.org
Subject svn commit: r226835 - in /perl/modperl/docs/trunk/src/docs/2.0/api/APR: Error.pod Socket.pod Status.pod
Date Mon, 01 Aug 2005 16:13:52 GMT
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


Mime
View raw message