Your code snippet doesn't demonstrate what you claim. What gives?
Alternatively, is there another, simpler way to compare the contents of two hashes that contain complex data like this?
How can it possibly get any simpler?
use FreezeThaw qw[cmpStrHard];
my @one = ( 1 .. 10, ( [ 1 .. 2] ) x 5 );
my @two = ( 12 .. 21, ( [ 11 .. 22] ) x 4 );
warn "one one ", cmpStrHard(\@one,\@one) == 0 ? "same\n" : "different\
die "one two ", cmpStrHard(\@one,\@two)== 0 ? "same\n" : "different\n"
one one same
one two different
Like my snippet (and perlfaq4) demonstrate is that cmpStrHard returns 1 when the data structures are different, not when they are identical.
|MJD says "you can't just make shit up and expect the computer to know what you mean, retardo!"|
|I run a Win32 PPM repository for perl 5.6.x and 5.8.x -- I take requests (README).|
|** The third rule of perl club is a statement of fact: pod is sexy.|