[PATCH] solver_git: support non-master git default branch

[Thomas Weißschuh]

---
 lib/PublicInbox/SolverGit.pm | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/lib/PublicInbox/SolverGit.pm b/lib/PublicInbox/SolverGit.pm
index 5d5060f4..f9ce3793 100644
--- a/lib/PublicInbox/SolverGit.pm
+++ b/lib/PublicInbox/SolverGit.pm
@@ -18,6 +18,7 @@ use PublicInbox::Qspawn;
 use PublicInbox::Tmpfile;
 use PublicInbox::GitAsyncCat;
 use PublicInbox::Eml;
+use PublicInbox::Import;
 use URI::Escape qw(uri_escape_utf8);
 
 # POSIX requires _POSIX_ARG_MAX >= 4096, and xargs is required to
@@ -26,6 +27,7 @@ use URI::Escape qw(uri_escape_utf8);
 use POSIX qw(sysconf _SC_ARG_MAX);
 my $ARG_SIZE_MAX = (sysconf(_SC_ARG_MAX) || 4096) - 2048;
 my $OID_MIN = 7;
+my $default_branch = PublicInbox::Import::default_branch;
 
 # By default, "git format-patch" generates filenames with a four-digit
 # prefix, so that means 9999 patch series are OK, right? :>
@@ -304,7 +306,7 @@ EOF
        close $fh or die "close git/config: $!";
 
        open $fh, '>', "$git_dir/HEAD" or die "open git/HEAD: $!";
-       print $fh "ref: refs/heads/master\n" or die "print git/HEAD: $!";
+       print $fh "ref: $default_branch\n" or die "print git/HEAD: $!";
        close $fh or die "close git/HEAD: $!";
 
        my $f = 'objects/info/alternates';

base-commit: e7d9df936d071b4a9b72d2e6096ddf1e90c1bc05
-- 
2.33.1