From fbda7af576e41b6d71ab5618151f1419cf8f81f0 Mon Sep 17 00:00:00 2001
From: Kresten Krab Thorup <krab@trifork.com>
Date: Fri, 11 May 2012 12:30:07 +0200
Subject: [PATCH] Honor expiry_secs == 0

When this is the case, we use the old on-disk
encoding to shave 4 bytes off every entry.
---
 src/hanoidb_nursery.erl | 17 ++++++++++++++---
 1 file changed, 14 insertions(+), 3 deletions(-)

diff --git a/src/hanoidb_nursery.erl b/src/hanoidb_nursery.erl
index ab520b0..f19a41d 100644
--- a/src/hanoidb_nursery.erl
+++ b/src/hanoidb_nursery.erl
@@ -93,14 +93,25 @@ read_nursery_from_log(Directory, MaxLevel, Config) ->
 % Add a Key/Value to the nursery
 % @end
 -spec add(#nursery{}, binary(), binary()|?TOMBSTONE) -> {ok, #nursery{}}.
-add(Nursery=#nursery{ log_file=File, cache=Cache, total_size=TotalSize, count=Count }, Key, Value) ->
+add(Nursery=#nursery{ log_file=File, cache=Cache, total_size=TotalSize, count=Count, config=Config }, Key, Value) ->
+    ExpiryTime = hanoidb_util:expiry_time(Config),
     TStamp = hanoidb_util:tstamp(),
-    Data = hanoidb_util:crc_encapsulate_kv_entry( Key, {Value, TStamp} ),
+
+    if ExpiryTime == 0 ->
+            Data = hanoidb_util:crc_encapsulate_kv_entry( Key, Value );
+       true ->
+            Data = hanoidb_util:crc_encapsulate_kv_entry( Key, {Value, TStamp} )
+    end,
     ok = file:write(File, Data),
 
     Nursery1 = do_sync(File, Nursery),
 
-    Cache2 = gb_trees:enter(Key, {Value, TStamp}, Cache),
+    if ExpiryTime == 0 ->
+            Cache2 = gb_trees:enter(Key, Value, Cache);
+       true ->
+            Cache2 = gb_trees:enter(Key, {Value, TStamp}, Cache)
+    end,
+
     Nursery2 = Nursery1#nursery{ cache=Cache2, total_size=TotalSize+erlang:iolist_size(Data), count=Count+1 },
     if
        Count+1 >= ?BTREE_SIZE(?TOP_LEVEL) ->