Return-Path: Delivered-To: apmail-perl-docs-cvs-archive@www.apache.org Received: (qmail 67689 invoked from network); 1 Aug 2005 16:14:07 -0000 Received: from hermes.apache.org (HELO mail.apache.org) (209.237.227.199) by minotaur.apache.org with SMTP; 1 Aug 2005 16:14:07 -0000 Received: (qmail 70420 invoked by uid 500); 1 Aug 2005 16:14:07 -0000 Delivered-To: apmail-perl-docs-cvs-archive@perl.apache.org Received: (qmail 70400 invoked by uid 500); 1 Aug 2005 16:14:06 -0000 Mailing-List: contact docs-cvs-help@perl.apache.org; run by ezmlm Precedence: bulk Reply-To: docs-dev@perl.apache.org List-Post: List-Help: List-Unsubscribe: List-Id: Delivered-To: mailing list docs-cvs@perl.apache.org Received: (qmail 70371 invoked by uid 99); 1 Aug 2005 16:14:06 -0000 X-ASF-Spam-Status: No, hits=-9.8 required=10.0 tests=ALL_TRUSTED,NO_REAL_NAME X-Spam-Check-By: apache.org Received: from [209.237.227.194] (HELO minotaur.apache.org) (209.237.227.194) by apache.org (qpsmtpd/0.29) with SMTP; Mon, 01 Aug 2005 09:13:55 -0700 Received: (qmail 67625 invoked by uid 65534); 1 Aug 2005 16:13:53 -0000 Message-ID: <20050801161353.67623.qmail@minotaur.apache.org> Content-Type: text/plain; charset="utf-8" MIME-Version: 1.0 Content-Transfer-Encoding: 7bit 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 -0000 To: docs-cvs@perl.apache.org From: stas@apache.org X-Mailer: svnmailer-1.0.2 X-Virus-Checked: Checked by ClamAV on apache.org X-Spam-Rating: minotaur.apache.org 1.6.2 0/1000/N 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