Add some more options to the findMoreChanges.pl kludge-script

1 files changed, 6 insertions, 3 deletions

diff --git a/contrib/findMergedChanges.pl b/contrib/findMergedChanges.pl
index a35b0cf50..d6c4105b7 100755
--- a/contrib/findMergedChanges.pl
+++ b/contrib/findMergedChanges.pl
@@ -8,7 +8,7 @@ sub nChanges {
     local *F;
     # requires perl 5.8.  Avoids shell issues if we ever get a changes
     # file named by the parents of Little Johnny Tables.
-    open F, "-|", "git", "log", "--pretty=format:%H", $branches, "--", $fname
+    open F, "-|", "git", "log", "--no-merges", "--pretty=format:%H", $branches, "--", $fname
 	or die "$!";
     my @changes = <F>;
     return scalar @changes
@@ -19,7 +19,7 @@ my $look_for_type = "merged";
 if (! @ARGV) {
     print <<EOF
 Usage:
-   findMergedChanges.pl [--merged/--unmerged/--weird/--list] [--branch=<branchname] changes/*
+   findMergedChanges.pl [--merged/--unmerged/--weird/--list] [--branch=<branchname] [--head=<branchname>] changes/*
 
 A change is "merged" if it has ever been merged to release-0.2.4 and it has had
 no subsequent changes in master.
@@ -37,6 +37,7 @@ EOF
 }
 
 my $target_branch = "origin/release-0.2.4";
+my $head = "origin/master";
 
 while (@ARGV and $ARGV[0] =~ /^--/) {
     my $flag = shift @ARGV;
@@ -44,6 +45,8 @@ while (@ARGV and $ARGV[0] =~ /^--/) {
 	$look_for_type = $1;
     } elsif ($flag =~ /^--branch=(\S+)/) {
         $target_branch = $1;
+    } elsif ($flag =~ /^--head=(\S+)/) {
+        $head = $1;
     } else {
 	die "Unrecognized flag $flag";
     }
@@ -51,7 +54,7 @@ while (@ARGV and $ARGV[0] =~ /^--/) {
 
 for my $changefile (@ARGV) {
     my $n_merged = nChanges($target_branch, $changefile);
-    my $n_postmerged = nChanges("${target_branch}..origin/master", $changefile);
+    my $n_postmerged = nChanges("${target_branch}..${head}", $changefile);
     my $type;
 
     if ($n_merged != 0 and $n_postmerged == 0) {