sub CompareTrees($$\%\%)

##</code><code>##

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

##</code><code>##

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