Did you get the + and - swapped? Now comp(5, 4.5, 1) is false and comp(5, 4.5, -1) is true.

Personally I prefer to use the good old standard mathematical way of expressing it:

if (abs($x - $y) <= $tolerance) {
  print "$x and $y are 'equal'";
}
[download]

lodin