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


in reply to The joys of bad code

In the last week got to see (in large scale production code):

if ( $test || 0 ) { ... # and if ( uc $string eq 'String' ) { ...