Fixed jlouis#21 in original repo

T0ha · Nov 14, 2013 · 188b15e · 188b15e
1 parent 7db7f4e
commit 188b15e
Showing 1 changed file with 5 additions and 1 deletion.
diff --git a/src/etorrent_mktorrent.erl b/src/etorrent_mktorrent.erl
@@ -75,7 +75,11 @@ mk_comment(Comment) when is_list(Comment) ->
 
 mk_infodict_single(PieceHashes, Name, Sz) when is_binary(PieceHashes) ->
     [{<<"pieces">>, PieceHashes},
-     {<<"piece length">>, ?CHUNKSIZE},
+     if Sz < ?CHUNKSIZE ->
+                {<<"piece length">>, Sz};
+            true ->
+                {<<"piece length">>, ?CHUNKSIZE}
+        end,
      {<<"name">>, list_to_binary(filename:basename(Name))},
      {<<"length">>, Sz}].