X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FTie%2FRefHash.pm;h=ffa9eb20a00c0a100ba277be78584d16a617399e;hb=052b629eb0274721d73944a03d3c4aac89392a61;hp=e9869e24e1d097833fafda8a5c0a9854f8c2745a;hpb=151c20ad7c538678c95caebf3d22c0270964f452;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/lib/Tie/RefHash.pm b/lib/Tie/RefHash.pm
index e9869e2..ffa9eb2 100644
--- a/lib/Tie/RefHash.pm
+++ b/lib/Tie/RefHash.pm
@@ -39,7 +39,7 @@ see the C<tie> entry in perlfunc(1) and perltie(1) for more information.
 
 =head1 AUTHOR
 
-Gurusamy Sarathy        gsar@umich.edu
+Gurusamy Sarathy        gsar@activestate.com
 
 =head1 VERSION
 
@@ -94,6 +94,8 @@ sub EXISTS {
 
 sub FIRSTKEY {
   my $s = shift;
+  keys %{$s->[0]};	# reset iterator
+  keys %{$s->[1]};	# reset iterator
   $s->[2] = 0;
   $s->NEXTKEY;
 }