diff options
author | Sean Whitton <spwhitton@spwhitton.name> | 2020-03-10 12:00:49 -0700 |
---|---|---|
committer | Sean Whitton <spwhitton@spwhitton.name> | 2020-03-10 12:00:49 -0700 |
commit | f1b9bcc7e22c710c7bccf0baa08057cdbd53491b (patch) | |
tree | e244d83a2240bd2747410ca95e8f1c090bcf3ab5 | |
parent | 54a69a5df4195988711bd20e816d3108a181fa35 (diff) | |
download | p5-Git-Annex-f1b9bcc7e22c710c7bccf0baa08057cdbd53491b.tar.gz |
annex-to-annex: Fix path when looking for missing files
Signed-off-by: Sean Whitton <spwhitton@spwhitton.name>
-rw-r--r-- | Changes | 2 | ||||
-rw-r--r-- | lib/App/annex_to_annex.pm | 4 |
2 files changed, 4 insertions, 2 deletions
@@ -1,6 +1,8 @@ Revision history for Git::Annex {{$NEXT}} + - annex-to-annex: Fix path passed to git-annex-find(1) when + looking for missing files. 0.002 2020-02-24 07:33:02-07:00 America/Phoenix - Fix logic in an example in Git::Annex::BatchCommand SYNOPSIS. diff --git a/lib/App/annex_to_annex.pm b/lib/App/annex_to_annex.pm index d68cc4a..cd054cc 100644 --- a/lib/App/annex_to_annex.pm +++ b/lib/App/annex_to_annex.pm @@ -109,9 +109,9 @@ sub main { #>>> } - my $base = basename $source; my @missing - = $annex->annex->find("--not", "--in", "here", $base); + = $annex->annex->find("--not", "--in", "here", + abs2rel $source, $annex->toplevel); if (@missing) { say "Following annexed files are not present in this repo:"; say for @missing; |