annex-to-annex: abort if detect any detached HEADs

1 files changed, 6 insertions, 0 deletions

diff --git a/bin/annex-to-annex b/bin/annex-to-annex
index 3d412ee4..3db6273d 100755
--- a/bin/annex-to-annex
+++ b/bin/annex-to-annex
@@ -47,6 +47,9 @@ if ($ARGV[0] eq '--commit') {
     my @git_status = `git -C "$dest" status --porcelain`;
     die "git repo containing $dest is not clean; please commit\n"
       unless @git_status == 0;
+
+    `git -C "$dest" symbolic-ref --quiet HEAD`;
+    die "$dest has a detached HEAD; aborting" unless $? == 0;
 }
 my @sources = map rel2abs($_), @ARGV;
 
@@ -64,6 +67,9 @@ foreach my $source (@sources) {
         my @git_status = `git -C "$dir" status --porcelain`;
         die "git repo containing $source is not clean; please commit\n"
           unless @git_status == 0;
+
+        `git -C "$dir" symbolic-ref --quiet HEAD`;
+        die "$dir has a detached HEAD; aborting" unless $? == 0;
     }
 
     my $base    = basename($source);