Git.pm: fix bare repository search with Directory option

When opening a bare repository like: Git->repository(Directory => '/path/to/bare.git'); we will incorrectly point the repository object at the _current_ directory, not the one specified by the option. The bug was introduced by 20da61f25f (Git.pm: trust rev-parse to find bare repositories, 2022-10-22). Before then, we'd ask "rev-parse --git-dir" if it was a Git repo, and if it returned anything, we'd correctly convert that result to an absolute path using File::Spec and Cwd::abs_path(). If it didn't, we'd guess it might be a bare repository and find it ourselves, which was wrong (rev-parse should find even a bare repo, and our search circumvented some of its rules). That commit dropped most of the custom bare-repo search code in favor of using "rev-parse --is-bare-repository" and trusting the "--git-dir" it returned. But it mistakenly left some of the bare-repo code path in place, which was now broken. That code calls Cwd::abs_path($dir); prior to 20da61f25f $dir contained the "Directory" option the user passed in. But afterwards, it contains the output of "rev-parse --git-dir". And since our tentative rev-parse command is invoked after changing directory, it will always be the relative path "."! So we'll end up with the absolute path of the process's current directory, not the Directory option the caller asked for. So the non-bare case is correct, but the bare one is broken. Our tests only check the non-bare one, so we didn't notice. We can fix this by running the same absolute-path fixup code for both sides. Helped-by: Rodrigo <rodrigolive@gmail.com> Signed-off-by: Jeff King <peff@peff.net> Signed-off-by: Junio C Hamano <gitster@pobox.com>

Jeff King committed Sep 12, 2024 at 18:36 UTC e4b353d0a138f946b2321efa7ba9094cf747dd34
3 files changed +11 -7
perl/Git.pm
+4 -6
@@ -197,11 +197,11 @@ sub repository {
197 my ($bare, $dir) = split /\n/, $out, 2;
198
199 require Cwd;
200 - if ($bare ne 'true') {
201 - require File::Spec;
202 - File::Spec->file_name_is_absolute($dir) or $dir = $opts{Directory} . '/' . $dir;
203 - $opts{Repository} = Cwd::abs_path($dir);
200 + require File::Spec;
201 + File::Spec->file_name_is_absolute($dir) or $dir = $opts{Directory} . '/' . $dir;
202 + $opts{Repository} = Cwd::abs_path($dir);
203
204 + if ($bare ne 'true') {
205 # If --git-dir went ok, this shouldn't die either.
206 my $prefix = $search->command_oneline('rev-parse', '--show-prefix');
207 $dir = Cwd::abs_path($opts{Directory}) . '/';
@@ -214,8 +214,6 @@ sub repository {
214 $opts{WorkingCopy} = $dir;
215 $opts{WorkingSubdir} = $prefix;
216
217 - } else {
218 - $opts{Repository} = Cwd::abs_path($dir);
217 }
218
219 delete $opts{Directory};
t/t9700-perl-git.sh
+2 -1
@@ -45,7 +45,8 @@ test_expect_success 'set up test repository' '
45 '
46
47 test_expect_success 'set up bare repository' '
48 - git init --bare bare.git
48 + git init --bare bare.git &&
49 + git -C bare.git --work-tree=. commit --allow-empty -m "bare commit"
50 '
51
52 test_expect_success 'use t9700/test.pl to test Git.pm' '
t/t9700/test.pl
+5
@@ -147,6 +147,11 @@ close TEMPFILE3;
147 unlink $tmpfile3;
148 chdir($abs_repo_dir);
149
150 +# open alternate bare repo
151 +my $r4 = Git->repository(Directory => "$abs_repo_dir/bare.git");
152 +is($r4->command_oneline(qw(log --format=%s)), "bare commit",
153 + "log of bare repo works");
154 +
155 # unquoting paths
156 is(Git::unquote_path('abc'), 'abc', 'unquote unquoted path');
157 is(Git::unquote_path('"abc def"'), 'abc def', 'unquote simple quoted path');