sub CompareTrees
{
   @_ == 4 ||
      warn "CompareTrees($srcPath,$destPath,\%srcTree, \%destTree)" &&
      return undef;
   my ($sourcePath,$destPath,$sourceTree, $destTree) = @_;