oops, backout bogus change#3545

p4raw-link: @3545 on //depot/perl: 151c20ad7c538678c95caebf3d22c0270964f452

p4raw-id: //depot/perl@3546

diff --git a/lib/Tie/RefHash.pm b/lib/Tie/RefHash.pm
index e9869e2..66de257 100644 (file)
--- a/lib/Tie/RefHash.pm
+++ b/lib/Tie/RefHash.pm
@@ -43,7 +43,7 @@ Gurusamy Sarathy        gsar@umich.edu
 
 =head1 VERSION
 
-Version 1.21    22 Jun 1999
+Version 1.2    15 Dec 1996
 
 =head1 SEE ALSO
 
@@ -94,6 +94,7 @@ sub EXISTS {
 
 sub FIRSTKEY {
   my $s = shift;
+  my $a = scalar(keys %{$s->[0]}) + scalar(keys %{$s->[1]});
   $s->[2] = 0;
   $s->NEXTKEY;
 }