Select Code to Download

 
#!/usr/bin/perl
use strict; 
...
}

print '3: ', $foo eq $bar, "\n";    # Warns again.

((defined($x) && defined($y) && ($x eq $y))
     || (!defined($x) && !defined($y))

( defined($x && $y) and ($x eq $y) ) or not defined($x || $y)

defined($x&&$y)&&$x eq$y||!defined($x||$y)