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


in reply to Re^2: What is the best way to compare variables so that different types are non-equal?
in thread What is the best way to compare variables so that different types are non-equal?

That can result in false positives. 
my $r = \@a;
print comparifier($r, "ARRAY$r") ?1:0,"\n";   # 1

[download]

In Section Seekers of Perl Wisdom