summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorSean Whitton <spwhitton@spwhitton.name>2019-12-23 14:25:50 -0700
committerSean Whitton <spwhitton@spwhitton.name>2019-12-23 14:25:50 -0700
commit9a198352df67ef496b4884143e90e1354bed4e44 (patch)
tree5694eb1876a41194a896866d8954e1d3acbc1d6e
parent4826910fe728a92019124a6e179008638135d6bc (diff)
downloaddotfiles-9a198352df67ef496b4884143e90e1354bed4e44.tar.gz
don't look up the content unless link count is 1
-rwxr-xr-xbin/annex-to-annex-dropunused4
1 files changed, 2 insertions, 2 deletions
diff --git a/bin/annex-to-annex-dropunused b/bin/annex-to-annex-dropunused
index 93aec837..98142dbf 100755
--- a/bin/annex-to-annex-dropunused
+++ b/bin/annex-to-annex-dropunused
@@ -49,8 +49,8 @@ foreach my $unused_file (@unused_files) {
unless defined $logs[0]
and $logs[0]->message =~ /migrated by annex-to-annex/;
- my $dest_has_key;
- if ($dest) {
+ my $dest_has_key = 0;
+ if ($dest and $link_count == 1) {
say $cl_in $unused_file->{key};
chomp(my $out = <$cl_out>);
$dest_has_key = $out ne "";