-----BEGIN PGP SIGNED MESSAGE----- Hash: SHA1 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.
push returns the number of array's elements. And this gets stored in the 'KEY' of pnotes. Nothing wrong here. > I've had to write ...... > > my $ar = $r->pnotes('KEY') || []; > push( @{ $ar }, $debug_str ); > $r->pnotes( 'KEY' => $ar ); http://perl.apache.org/docs/2.0/api/Apache2/RequestUtil.html#C_pnotes_ $old_val = $r->pnotes($key => $val); $val = $r->pnotes($key); $hash_ref = $r->pnotes(); So push @{ $r->pnotes()->{'KEY'} } should do what you want. The abofe doc is for mod_perl2, but as far as I see, the same applies for mod_perl 1 as well. dam - -- Damyan Ivanov 0x9725F63B Creditreform Bulgaria [EMAIL PROTECTED] http://www.creditreform.bg/ phone: +359(2)928-2611, 929-3993 fax: +359(2)920-0994 mob. +359(88)856-6067 ICQ 3028500 [EMAIL PROTECTED]/Gaim -----BEGIN PGP SIGNATURE----- Version: GnuPG v1.4.1 (GNU/Linux) Comment: Using GnuPG with Thunderbird - http://enigmail.mozdev.org iD8DBQFDKqBlHqjlqpcl9jsRAtFaAJ4zrkS2BCirN8s5jQYWjOGVi4o0SwCgnT/l rtNpyRgQIYpZdP3T97Bo5u8= =rvA/ -----END PGP SIGNATURE-----