This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
If there is no 'blead' branch, bisect.pl now uses a suitable alternative.
[perl5.git] / Porting / bisect.pl
index 14ee602..db08f4c 100755 (executable)
@@ -76,7 +76,19 @@ unshift @stable, qw(perl-5.005 perl-5.6.0 perl-5.8.0);
 
 unshift @ARGV, '--gold', defined $gold ? $gold : $stable[-1];
 
-$end = 'blead' unless defined $end;
+if (!defined $end) {
+    # If we have a branch blead, use that as the end
+    $end = `git rev-parse --verify --quiet blead`;
+    die unless defined $end;
+    if (!length $end) {
+        # Else use whichever is newer - HEAD, or the most recent stable tag.
+        if (`git rev-list -n1 HEAD ^$stable[-1]` eq "") {
+            $end = pop @stable;
+        } else {
+            $end = 'HEAD';
+        }
+    }
+}
 
 # Canonicalising branches to revisions before moving the checkout permits one
 # to use revisions such as 'HEAD' for --start or --end