sub equalOrBothNull
{
   my ($a, $b) = @_;

   ((defined($a) && defined($b) && $a==$b) ||
    (!defined($a) && !defined($b));
}