http://qs321.pair.com?node_id=160811


in reply to Need a test for deep equality

You might want to look at Data::Compare: 
use Data::Compare;
my $hr1 = {a=>'foo',b=>'bar'};
my $hr2 = {b=>'bar',a=>'foo'};
print "They are ", (Compare($hr1,$hr2) ? "the same" : "different"), "\
+n";

[download]

gav^

In Section Seekers of Perl Wisdom