diff options
-rwxr-xr-x | bin/annex-to-annex-reinject | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/bin/annex-to-annex-reinject b/bin/annex-to-annex-reinject index 6a9926dd..874b0658 100755 --- a/bin/annex-to-annex-reinject +++ b/bin/annex-to-annex-reinject @@ -78,7 +78,11 @@ find({ chmod("u-w", $dir, $_); } else { my $key = basename($_); - say $spk "$key $source_uuid 0"; + + # TODO this setpresentkey doesn't actually seem to do anything atm + # say $spk "$key $source_uuid 0"; + say "WARNING: setpresentkey code not working; you should fsck source annex later"; + foreach my $d ($dir, dirname($dir), dirname(dirname($dir))) { last unless is_empty_dir($d); rmdir $d; |