http://www.perlmonks.org?node_id=776766


in reply to Re^2: disadvantages of perl
in thread disadvantages of perl

Should be
if( UNIVERSAL::isa($r,'HASH') and %$r ) { ... }

Replies are listed 'Best First'.
Re^4: disadvantages of perl
by chromatic (Archbishop) on Jul 02, 2009 at 23:08 UTC

    ... except that even that abusive code can't accurately determine if you can dereference all hashlike $r as a hash.