diff options
author | Sean Whitton <spwhitton@spwhitton.name> | 2019-12-23 14:25:50 -0700 |
---|---|---|
committer | Sean Whitton <spwhitton@spwhitton.name> | 2019-12-23 14:25:50 -0700 |
commit | 9a198352df67ef496b4884143e90e1354bed4e44 (patch) | |
tree | 5694eb1876a41194a896866d8954e1d3acbc1d6e | |
parent | 4826910fe728a92019124a6e179008638135d6bc (diff) | |
download | dotfiles-9a198352df67ef496b4884143e90e1354bed4e44.tar.gz |
don't look up the content unless link count is 1
-rwxr-xr-x | bin/annex-to-annex-dropunused | 4 |
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 ""; |