diff options
author | Sean Whitton <spwhitton@spwhitton.name> | 2020-02-01 15:14:42 -0700 |
---|---|---|
committer | Sean Whitton <spwhitton@spwhitton.name> | 2020-02-01 15:14:51 -0700 |
commit | c1aabf33bd7f70298ea977b0e20dc262a92bde2b (patch) | |
tree | ec3b3a36d56e1eb2fca983d5b542abac0904094e | |
parent | f48595c3d891765cf4d20cf5a9a829c3ab295cb5 (diff) | |
download | p5-Git-Annex-c1aabf33bd7f70298ea977b0e20dc262a92bde2b.tar.gz |
_git_path does an implicit catfile
Signed-off-by: Sean Whitton <spwhitton@spwhitton.name>
-rw-r--r-- | lib/Git/Annex.pm | 6 | ||||
-rwxr-xr-x | t/11_utils.t | 3 |
2 files changed, 5 insertions, 4 deletions
diff --git a/lib/Git/Annex.pm b/lib/Git/Annex.pm index 4287126..c744d7b 100644 --- a/lib/Git/Annex.pm +++ b/lib/Git/Annex.pm @@ -106,7 +106,7 @@ has repo => ( has _unused_cache => ( is => "lazy", - default => sub { shift->_git_path(catfile(qw(annex unused_info))) }); + default => sub { shift->_git_path(qw(annex unused_info)) }); sub _store_unused_cache { my $self = shift; @@ -121,8 +121,8 @@ sub _clear_unused_cache { } sub _git_path { - my ($self, $input) = @_; - my ($path) = $self->git->rev_parse({ git_path => 1 }, $input); + my ($self, @input) = @_; + my ($path) = $self->git->rev_parse({ git_path => 1 }, catfile @input); rel2abs($path, $self->toplevel); } diff --git a/t/11_utils.t b/t/11_utils.t index f982967..d7343bc 100755 --- a/t/11_utils.t +++ b/t/11_utils.t @@ -16,7 +16,8 @@ with_temp_annexes { my $temp = shift; my $annex = Git::Annex->new("source1"); my $unused_info = catfile($temp, qw(source1 .git annex unused_info)); - ok $annex->_git_path("blah") eq catfile($temp, qw(source1 .git blah)), + ok $annex->_git_path("blah", "foo") + eq catfile($temp, qw(source1 .git blah foo)), "_git_path resolves a path"; ok $annex->_unused_cache eq $unused_info, "_unused_cache resolves to correct path"; |