yeah.erl

f().
Vnode = fun(Idx) ->
 [{I,P}] = [ {Index,Pid} || {Mod,Index,Pid} <- gen_server:call(riak_core_vnode_manager,all_vnodes),Mod == riak_kv_vnode, Index == Idx],
 {I,P} 
end,
 
Vnodes = fun() ->
 [ I || {Mod,I,P} <- gen_server:call(riak_core_vnode_manager,all_vnodes), Mod == riak_kv_vnode ]
end,
 
BitcaskRefState = fun(Idx) ->
   {_,P} = Vnode(Idx),
   {dictionary, Dict} = process_info(P, dictionary),
   [{Ref,State}] = lists:filter(fun({R,S}) -> is_reference(R) end, Dict),
   erlang:put(Ref,State),
   {Ref,State}
end