X-Git-Url: https://www.chiark.greenend.org.uk/ucgi/~ianmdlvl/git?a=blobdiff_plain;ds=sidebyside;f=git-debrebase;h=2b6584630516bb3208c0874413c1bbe791168f94;hb=4f22209a590da904276c3a52643473f44cc22d18;hp=3d837272ac1b4f2e4a3aab9cdaa0a19fc0de765a;hpb=9ba4f33ee531a379f7d55b6b32b3d9221d7ec04f;p=dgit.git

diff --git a/git-debrebase b/git-debrebase
index 3d837272..2b658463 100755
--- a/git-debrebase
+++ b/git-debrebase
@@ -111,7 +111,8 @@ sub cfg ($;$) {
 	fail "missing required git config $k" unless $optional;
 	return ();
     }
-    return split /\0/, $out;
+    my @l = split /\0/, $out;
+    return wantarray ? @l : $l[0];
 }
 
 memoize('cfg');
@@ -461,7 +462,8 @@ sub classify ($) {
 	} elsif ($order < 0) {
 	    @bytime = reverse @bytime;
 	} else {
-	    return $unknown->('merge of two identical same-age parents');
+	    # same age, default to order made by -s ours
+	    # that is, commit was made by someone who preferred L
 	}
 	return $classify->(qw(Pseudomerge),
 			   SubType => qw(Ambiguous),
@@ -913,6 +915,7 @@ sub ffq_prev_branchinfo () {
     return ('weird-symref', 'HEAD symref is not to refs/')
 	unless $current =~ m{^refs/};
     my $ffq_prev = "refs/$ffq_refprefix/$'";
+    printdebug "ffq_prev_branchinfo branch current $current\n";
     return ('branch', undef, $current, $ffq_prev);
 }
 
@@ -942,12 +945,15 @@ sub record_ffq_prev () {
     my @check_specs = split /\;/, (cfg "branch.$branch.ffq-ffrefs",1) // '*';
     my %checked;
 
+    printdebug "ffq check_specs @check_specs\n";
+
     my $check = sub {
 	my ($lrref, $desc) = @_;
+	printdebug "ffq might check $lrref ($desc)\n";
 	my $invert;
 	for my $chk (@check_specs) {
 	    my $glob = $chk;
-	    $invert = $glob =~ s{^[^!]}{};
+	    $invert = $glob =~ s{^[!^]}{};
 	    last if fnmatch $glob, $lrref;
 	}
 	return if $invert;
@@ -957,7 +963,7 @@ sub record_ffq_prev () {
 	if (is_fast_fwd $lrval, $currentval) {
 	    print "OK, you are ahead of $lrref\n" or die $!;
 	    $checked{$lrref} = 1;
-	} if (is_fast_fwd $currentval, $lrval) {
+	} elsif (is_fast_fwd $currentval, $lrval) {
 	    $checked{$lrref} = -1;
 	    fproblem 'behind', "you are behind $lrref, divergence risk";
 	} else {
@@ -967,23 +973,25 @@ sub record_ffq_prev () {
     };
 
     my $merge = cfg "branch.$branch.merge",1;
-    if (defined $merge && $merge =~ m{^refs/heads/}) {
+    if (defined $merge and $merge =~ m{^refs/heads/}) {
 	my $rhs = $';
+	printdebug "ffq merge $rhs\n";
 	my $check_remote = sub {
-	    my ($remote, $desc) = (@_);
+	    my ($remote, $desc) = @_;
+	    printdebug "ffq check_remote ".($remote//'undef')." $desc\n";
 	    return unless defined $remote;
 	    $check->("refs/remotes/$remote/$rhs", $desc);
 	};
-	$check_remote->((cfg "branch.$branch.remote",1),
+	$check_remote->((scalar cfg "branch.$branch.remote",1),
 			'remote fetch/merge branch');
-	$check_remote->((cfg "branch.$branch.pushRemote",1) //
-			(cfg "branch.$branch.pushDefault",1),
+	$check_remote->((scalar cfg "branch.$branch.pushRemote",1) //
+			(scalar cfg "branch.$branch.pushDefault",1),
 			'remote push branch');
     }
     if ($branch =~ m{^dgit/}) {
-	$check->("remotes/dgit/$branch", 'remote dgit branch');
+	$check->("refs/remotes/dgit/$branch", 'remote dgit branch');
     } elsif ($branch =~ m{^master$}) {
-	$check->("remotes/dgit/dgit/sid", 'remote dgit branch for sid');
+	$check->("refs/remotes/dgit/dgit/sid", 'remote dgit branch for sid');
     }
 
     fproblems_maybe_bail();