Mailing-List: contact modperl-help@perl.apache.org; run by ezmlm
Precedence: bulk
Received-SPF: pass (asf.osuosl.org: domain of torsten.foertsch@gmx.net
 designates 213.165.64.20 as permitted sender)
From: Torsten Foertsch <torsten.foertsch@gmx.net>
To: modperl@perl.apache.org
Subject: Re: Sth I don't understand about pnotes
Date: Fri, 16 Sep 2005 12:33:12 +0200
User-Agent: KMail/1.7.1
References: <20050916100825.57764.qmail@web26008.mail.ukl.yahoo.com>
In-Reply-To: <20050916100825.57764.qmail@web26008.mail.ukl.yahoo.com>
MIME-Version: 1.0
Content-Type: multipart/signed;
  boundary="nextPart2839451.8Pa99HrCf7";
  protocol="application/pgp-signature";
  micalg=pgp-sha1
Content-Transfer-Encoding: 7bit
Message-Id: <200509161233.18592.torsten.foertsch@gmx.net>

--nextPart2839451.8Pa99HrCf7
Content-Type: text/plain;
  charset="iso-8859-1"
Content-Transfer-Encoding: 7bit
Content-Disposition: inline

On Friday 16 September 2005 12:08, Anthony Gardner wrote:
> Can s.o. explain what is wrong with the following code
> ....
>
> $r->pnotes('KEY' => push( @{ $ar }, $some_val ) );
>
> because, when it comes to getting the value from
> pnotes later with .... $r->pnotes(KEY), it returns the
> number of elements in the array and not the array ref.
>
> I've had to write ......
>
> my $ar = $r->pnotes('KEY') || [];
> push( @{ $ar }, $debug_str );
> $r->pnotes( 'KEY' => $ar );

Quoteing perldoc -f push:

       push ARRAY,LIST
               Treats ARRAY as a stack, and pushes the values of LIST onto the
               end of ARRAY.  The length of ARRAY increases by the length of
               LIST.  Has the same effect as

                   for $value (LIST) {
                       $ARRAY[++$#ARRAY] = $value;
                   }

               but is more efficient.  Returns the new number of elements in
               the array.

push returns the new number of elements. This is what you see.

Torsten

--nextPart2839451.8Pa99HrCf7
Content-Type: application/pgp-signature

-----BEGIN PGP SIGNATURE-----
Version: GnuPG v1.2.5 (GNU/Linux)

iD8DBQBDKp9uwicyCTir8T4RAnKhAJ42Q6DAZQnebeiCwmz+ImLpHmSLRgCeIGVW
dwfY+IaYDxpu/QYtlzNTAtw=
=6VAC
-----END PGP SIGNATURE-----

--nextPart2839451.8Pa99HrCf7--