Select Code to Download

sub CompareTrees($$\%\%)

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

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