use abs2rel rather than a regexp

1 files changed, 2 insertions, 2 deletions

diff --git a/bin/annex-to-annex b/bin/annex-to-annex
index dbff68ff..87266fe6 100755
--- a/bin/annex-to-annex
+++ b/bin/annex-to-annex
@@ -25,7 +25,7 @@ use Digest::MD5::File qw(file_md5);
 use File::Basename qw(dirname basename);
 use File::Copy;
 use File::Find;
-use File::Spec::Functions qw(catfile rel2abs);
+use File::Spec::Functions qw(catfile rel2abs abs2rel);
 use IPC::Open2;
 
 # only support v7 because supporting v5 too would make things quite
@@ -90,7 +90,7 @@ foreach my $source (@sources) {
 
     find({
             wanted => sub {
-                my $rel = $File::Find::name =~ s|^$dir/||r;
+                my $rel = abs2rel($File::Find::name, $dir);
                 my $target = catfile($dest, $rel);
                 die "$target already exists!\n" if -e $target and !-d $target;