add: Improved detection of files that are modified while being added.

In indirect mode, now checks the inode cache to detect changes to a file.
Note that a file can still be changed if a process has it open for write,
after landing in the annex.

In direct mode, some checking of the inode cache was done before, but
from a much later point, so fewer modifications could be detected. Now it's
as good as indirect mode.

On crippled filesystems, no lock down is done before starting to add a
file, so checking the inode cache is the only protection we have.

1 files changed, 1 insertions, 0 deletions

diff --git a/Annex/Direct.hs b/Annex/Direct.hs
index 55bff785c..733cb9356 100644
--- a/Annex/Direct.hs
+++ b/Annex/Direct.hs
@@ -79,6 +79,7 @@ addDirect file cache = do
 	let source = KeySource
 		{ keyFilename = file
 		, contentLocation = file
+		, inodeCache = Just cache
 		}
 	got =<< genKey source =<< chooseBackend file
   where