Mailing List Archive

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