&accessed: Return the list &sort-ed, it is safer for everyone such way.

diff --git a/Hash/RecordKeys.pm b/Hash/RecordKeys.pm
index 653c5a2..c818c9a 100644 (file)
--- a/Hash/RecordKeys.pm
+++ b/Hash/RecordKeys.pm
@@ -41,7 +41,7 @@ sub accessed($)
 {
 my($self)=@_;
 
 {
 my($self)=@_;
 

-       return keys(%{$self->{"keyshash"}})
+       return sort keys(%{$self->{"keyshash"}})

 }
 
 sub STORE($$$)
 }
 
 sub STORE($$$)