X-Git-Url: https://feistymeow.org/gitweb/?a=blobdiff_plain;f=scripts%2Ftext%2Fdiffer.pl;h=3a117669707970f062be8f1f1028a73fecd351de;hb=c02e632d0e6514ccaad532b79022e9172a3cd00b;hp=cd1c3353ea50f47d4ef47ef1c4db007939019cd4;hpb=612c912c1385227ae4fe502f7d88df2c232ff076;p=feisty_meow.git

diff --git a/scripts/text/differ.pl b/scripts/text/differ.pl
index cd1c3353..3a117669 100644
--- a/scripts/text/differ.pl
+++ b/scripts/text/differ.pl
@@ -35,8 +35,9 @@ if ($#ARGV < 0) {
 local($destination) = $ARGV[0];
 local($source) = ".";
 if ($#ARGV > 0) {
-  # get the location they provided.
-  $source = $ARGV[1];
+  # use both the locations they provided.
+  $source = $ARGV[0];
+  $destination = $ARGV[1];
 }
 
 # make the names a little more manipulable.
@@ -116,9 +117,17 @@ sub recurse_dirs
     local($compare_name) = $dest . "/" . $name;
 #    print "name is $name and to compare is $compare_name.\n";
     local($new_name) = $src . "/" . $name;
+#hmmm: need an is important dirname check for this.
     if ( (-d $new_name) && ($name ne ".") && ($name ne "..")
         && ($name ne ".svn") 
         && ($name ne ".git") 
+        && ($name ne "bin") 
+        && ($name ne "bin-eclipse") 
+        && ($name ne "bin.eclipse") 
+        && ($name ne "genned-src") 
+        && ($name ne "genned-obj") 
+        && ($name ne "codegen") 
+        && ($name ne "unit-test-reports") 
         && ($name ne "CVS") ) {
 #      print "recursing on: source $name and destination $compare_name.\n";
       &recurse_dirs($new_name, $compare_name);