Good advice. You still have to be careful about when you are comparing two non-constants, though:

if ($x = $y) {
  print "Ah jeez, I did it again.\n";
}
[download]