From: Gurusamy Sarathy <gsar@cpan.org>
Date: Tue, 22 Jun 1999 19:30:32 +0000 (+0000)
Subject: tweak RefHash to make intent clearer (suggested by John Dlugosz)
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=da41ffc5629181435ec349e6aeebfc052b334ab5;p=p5sagit%2Fp5-mst-13.2.git

tweak RefHash to make intent clearer (suggested by John Dlugosz)

p4raw-id: //depot/perl@3547
---

diff --git a/lib/Tie/RefHash.pm b/lib/Tie/RefHash.pm
index 66de257..ffa9eb2 100644
--- a/lib/Tie/RefHash.pm
+++ b/lib/Tie/RefHash.pm
@@ -39,11 +39,11 @@ 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
 
-Version 1.2    15 Dec 1996
+Version 1.21    22 Jun 1999
 
 =head1 SEE ALSO
 
@@ -94,7 +94,8 @@ sub EXISTS {
 
 sub FIRSTKEY {
   my $s = shift;
-  my $a = scalar(keys %{$s->[0]}) + scalar(keys %{$s->[1]});
+  keys %{$s->[0]};	# reset iterator
+  keys %{$s->[1]};	# reset iterator
   $s->[2] = 0;
   $s->NEXTKEY;
 }