enforce block aligned writes

beerriot · May 25, 2010 · 80de568 · 80de568
1 parent 1d9ece3
commit 80de568
Showing 1 changed file with 5 additions and 1 deletion.
diff --git a/apps/luwak/src/luwak_tree.erl b/apps/luwak/src/luwak_tree.erl
@@ -7,9 +7,13 @@
 %%=======================================
 %% Public API
 %%=======================================
-
 update(Riak, File, StartingPos, Blocks) ->
   Order = luwak_obj:get_property(File, tree_order),
+  BlockSize = luwak_obj:get_property(File, block_size),
+  if
+    StartingPos rem BlockSize =/= 0 -> throw({error, "StartingPos must be a multiple of blocksize"});
+    true -> ok
+  end,
   case luwak_obj:get_property(File, root) of
     %% there is no root, therefore we create one
     undefined ->