Fix OTP20 incompatibilities

nowarn_export_all, random -> rand, gen_fsm -> gen_fsm_compat, now ->
os:timestamp, rand_bytes -> strong_rand_bytes

Author: hanssv

intercepts/hashtree_intercepts.erl

@@ -19,7 +19,7 @@
 %%-------------------------------------------------------------------
 
 -module(hashtree_intercepts).
--compile(export_all).
+-compile([export_all, nowarn_export_all]).
 -include("intercept.hrl").
 
 sleep_update_perform(State) ->

intercepts/init_intercepts.erl

@@ -19,7 +19,7 @@
 %%-------------------------------------------------------------------
 
 -module(init_intercepts).
--compile(export_all).
+-compile([export_all, nowarn_export_all]).
 -include("intercept.hrl").
 -define(M, init_orig).
 

intercepts/intercept.erl

@@ -23,7 +23,7 @@
 %% because some of these private functions are useful in their own
 %% right.
 -export([add/3, add/4, clean/1]).
--compile(export_all).
+-compile([export_all, nowarn_export_all]).
 
 -type abstract_code() :: term().
 -type form() :: term().

intercepts/riak_core_broadcast_intercepts.erl

@@ -19,7 +19,7 @@
 %%-------------------------------------------------------------------
 
 -module(riak_core_broadcast_intercepts).
--compile(export_all).
+-compile([export_all, nowarn_export_all]).
 -include("intercept.hrl").
 
 global_send(Msg, Peers) when is_list(Peers) ->

intercepts/riak_core_connection_intercepts.erl

@@ -19,7 +19,7 @@
 %%-------------------------------------------------------------------
 
 -module(riak_core_connection_intercepts).
--compile(export_all).
+-compile([export_all, nowarn_export_all]).
 -include("intercept.hrl").
 
 -define(M, riak_core_connection_orig).

intercepts/riak_core_console_intercepts.erl

@@ -18,7 +18,7 @@
 %
 %% -------------------------------------------------------------------
 -module(riak_core_console_intercepts).
--compile(export_all).
+-compile([export_all, nowarn_export_all]).
 -include("intercept.hrl").
 
 %% See tests/riak_admin_console_tests.erl for more info

intercepts/riak_core_handoff_sender_intercepts.erl

@@ -19,7 +19,7 @@
 %%-------------------------------------------------------------------
 
 -module(riak_core_handoff_sender_intercepts).
--compile(export_all).
+-compile([export_all, nowarn_export_all]).
 -include("intercept.hrl").
 -define(M, riak_core_handoff_sender_orig).
 

intercepts/riak_core_ring_manager_intercepts.erl

@@ -19,7 +19,7 @@
 %%-------------------------------------------------------------------
 
 -module(riak_core_ring_manager_intercepts).
--compile(export_all).
+-compile([export_all, nowarn_export_all]).
 -include("intercept.hrl").
 
 noop_ring_trans(_Fun, _Args) ->

intercepts/riak_core_vnode_master_intercepts.erl

@@ -19,7 +19,7 @@
 %%-------------------------------------------------------------------
 
 -module(riak_core_vnode_master_intercepts).
--compile(export_all).
+-compile([export_all, nowarn_export_all]).
 -include("intercept.hrl").
 
 -record(riak_core_fold_req_v2, {
@@ -37,8 +37,7 @@ stop_vnode_after_bloom_fold_request_succeeds(IndexNode, Req, Sender, VMaster) ->
 
     case (ReqFun == fun riak_repl_aae_source:bloom_fold/3 orelse ReqFun == fun riak_repl_keylist_server:bloom_fold/3) of
         true ->
-            random:seed(erlang:now()),
-            case random:uniform(10) of
+            case rand:uniform(10) of
                 5 ->
                     %% Simulate what happens when a VNode completes handoff between command_returning_vnode
                     %% and the fold attempting to start - other attempts to intercept and slow
@@ -52,4 +51,4 @@ stop_vnode_after_bloom_fold_request_succeeds(IndexNode, Req, Sender, VMaster) ->
                     ?M:command_return_vnode_orig(IndexNode, Req, Sender, VMaster)
             end;
         false -> ?M:command_return_vnode_orig(IndexNode, Req, Sender, VMaster)
-    end.
+    end.

intercepts/riak_core_vnode_proxy_intercepts.erl

@@ -18,7 +18,7 @@
 %%-------------------------------------------------------------------
 
 -module(riak_core_vnode_proxy_intercepts).
--compile(export_all).
+-compile([export_all, nowarn_export_all]).
 -include("intercept.hrl").
 -define(M, riak_core_vnode_proxy_orig).