annex-to-annex: Fix path when looking for missing files

Signed-off-by: Sean Whitton <spwhitton@spwhitton.name>

2 files changed, 4 insertions, 2 deletions

diff --git a/Changes b/Changes
index 4eec01b..5b10f77 100644
--- a/Changes
+++ b/Changes
@@ -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;