http://qs1969.pair.com?node_id=217577


in reply to Re: stringified references
in thread stringified references

my $foo = bless {}, 'ARRAY';
my $bar = [];
print "ooops\n" if ref($foo) eq ref($bar);

[download]
;-)

In Section Seekers of Perl Wisdom