mirrors/git-annex
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

fix off-by-one

Browse source
This commit is contained in:
Joey Hess 2013-10-16 12:14:14 -04:00
parent 68495337bc
commit 82ff37520f
1 changed files with 1 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
Git/CheckAttr.hs
View file

@ -59,7 +59,7 @@ checkAttr (h, attrs, cwd) want file = do
| '\0' `elem` s = if "\0" `isSuffixOf` s | '\0' `elem` s = if "\0" `isSuffixOf` s
then then
let bits = segment (== '\0') s let bits = segment (== '\0') s
in if length bits == numattrs * 3 in if length bits == (numattrs * 3) + 1
then Just $ getattrvalues bits [] then Just $ getattrvalues bits []
else Nothing -- more attributes to come else Nothing -- more attributes to come
else Nothing -- output incomplete else Nothing -- output incomplete