Mailing-List: contact docs-dev-help@perl.apache.org; run by ezmlm
Precedence: bulk
Received-SPF: neutral (asf.osuosl.org: local policy)
Date: Sun, 18 Sep 2005 08:27:20 +0900
From: Jan Kratochvil <lace@jankratochvil.net>
To: docs-dev@perl.apache.org
Subject: Small but important typo
Message-ID: <20050917232720.GB30590@kashome.dyn.jankratochvil.net>
Mime-Version: 1.0
Content-Type: multipart/mixed; boundary="AqsLC8rIMeq19msA"
Content-Disposition: inline
User-Agent: Mutt/1.4.2.1i

--AqsLC8rIMeq19msA
Content-Type: text/plain; charset=us-ascii
Content-Disposition: inline

Hi,

attached patch is for:
	http://search.cpan.org/~gozer/mod_perl-2.0.1/docs/api/APR/Table.pod

and its:
	$table->add("a" => 1);
	$table->add("b" => 2);
	$table->add("c" => 3);

	($k, $v) = each %$table; # (a, 1)
	print $table->{a};       # prints 1

	($k, $v) = each %$table; # (b, 2)
	print $table->{a};       # prints 1

	($k, $v) = each %$table; # (a, 3)
	print $table->{a};       # prints 3 !!!

	($k, $v) = each %$table; # (undef, undef)
	print $table->{a};       # prints 1

while in fact it DID NOT print 3, it was still printing 1...


Regards,
Lace

--AqsLC8rIMeq19msA
Content-Type: text/plain; charset=us-ascii
Content-Disposition: attachment;
 filename="mod_perl-2.0-docs-prints_3_heh.patch"

Index: api/APR/Table.pod
===================================================================
--- api/APR/Table.pod	(revision 289859)
+++ api/APR/Table.pod	(working copy)
@@ -976,7 +976,7 @@
 
   $table->add("a" => 1);
   $table->add("b" => 2);
-  $table->add("c" => 3);
+  $table->add("a" => 3);
   
   ($k, $v) = each %$table; # (a, 1)
   print $table->{a};       # prints 1


--AqsLC8rIMeq19msA
Content-Type: text/plain; charset=us-ascii

---------------------------------------------------------------------
To unsubscribe, e-mail: docs-dev-unsubscribe@perl.apache.org
For additional commands, e-mail: docs-dev-help@perl.apache.org
--AqsLC8rIMeq19msA--