Friendpaste

--- Revision None
+++ Revision 363233623464
@@ -0,0 +1,16 @@
+diff --git a/src/couchdb/couch_view_group.erl b/src/couchdb/couch_view_group.erl
+index 0f2e683..d5dd639 100644
+--- a/src/couchdb/couch_view_group.erl
++++ b/src/couchdb/couch_view_group.erl
+@@ -230,7 +230,10 @@ handle_cast({compact_done, NewGroup}, State) ->
+     } = State,
+     ?LOG_INFO("View index compaction still behind for ~s ~s -- current: ~p " ++
+         "compact: ~p", [DbName, GroupId, CurrentSeq, NewGroup#group.current_seq]),
+-    couch_db:close(NewGroup#group.db),
++    case NewGroup#group.db of
++        nil -> ok;
++        _ -> couch_db:close(NewGroup#group.db)
++    end,
+     Pid = spawn_link(fun() ->
+         {ok, Db} = couch_db:open_int(DbName, []),
+         {_,Ref} = erlang:spawn_monitor(fun() ->
a	b
	0	+	diff --git a/src/couchdb/couch_view_group.erl b/src/couchdb/couch_view_group.erl
	0	+	index 0f2e683..d5dd639 100644
	0	+	--- a/src/couchdb/couch_view_group.erl
	0	+	+++ b/src/couchdb/couch_view_group.erl
	0	+	@@ -230,7 +230,10 @@ handle_cast({compact_done, NewGroup}, State) ->
	0	+	} = State,
	0	+	?LOG_INFO("View index compaction still behind for ~s ~s -- current: ~p " ++
	0	+	"compact: ~p", [DbName, GroupId, CurrentSeq, NewGroup#group.current_seq]),
	0	+	- couch_db:close(NewGroup#group.db),
	0	+	+ case NewGroup#group.db of
	0	+	+ nil -> ok;
	0	+	+ _ -> couch_db:close(NewGroup#group.db)
	0	+	+ end,
	0	+	Pid = spawn_link(fun() ->
	0	+	{ok, Db} = couch_db:open_int(DbName, []),
	0	+	{_,Ref} = erlang:spawn_monitor(fun() ->
...