File bitcask-2.0.8-stacktrace.patch of Package bitcask
diff -Ndurp bitcask-2.0.8/src/bitcask.erl bitcask-2.0.8-stacktrace/src/bitcask.erl
--- bitcask-2.0.8/src/bitcask.erl 2017-03-04 01:37:58.000000000 +0200
+++ bitcask-2.0.8-stacktrace/src/bitcask.erl 2021-07-04 01:11:45.748858587 +0300
@@ -469,8 +469,8 @@ open_fold_files(Dirname, Keydir, Count)
maybe_log_missing_file(Dirname, Keydir, ErrFile, Err),
open_fold_files(Dirname, Keydir, Count-1)
end
- catch X:Y ->
- {error, {X,Y, erlang:get_stacktrace()}}
+ catch X:Y:S ->
+ {error, {X,Y, S}}
end.
maybe_log_missing_file(Dirname, Keydir, ErrFile, enoent) ->
@@ -589,8 +589,8 @@ merge(Dirname, Opts, {FilesToMerge0, Exp
catch
throw:Reason ->
Reason;
- X:Y ->
- {error, {generic_failure, X, Y, erlang:get_stacktrace()}}
+ X:Y:S ->
+ {error, {generic_failure, X, Y, S}}
end.
%% Inner merge function, assumes that bitcask is running and all files exist.
@@ -1323,9 +1323,9 @@ init_keydir_scan_key_files(Dirname, KeyD
F <- SetuidFiles]),
bitcask_nifs:increment_file_id(KeyDir, MaxSetuid)
end
- catch _X:_Y ->
+ catch _X:_Y:_S ->
error_msg_perhaps("scan_key_files: ~p ~p @ ~p\n",
- [_X, _Y, erlang:get_stacktrace()]),
+ [_X, _Y, _S]),
init_keydir_scan_key_files(Dirname, KeyDir, KT, Count - 1)
end.
@@ -1930,10 +1930,10 @@ purge_setuid_files(Dirname) ->
[length(StaleFs), Dirname])
end
catch
- X:Y ->
+ X:Y:S ->
error_msg_perhaps("While deleting stale merge input "
"files from ~p: ~p @ ~p\n",
- [X, Y, erlang:get_stacktrace()])
+ [X, Y, S])
after
bitcask_lockops:release(WriteLock)
end;
diff -Ndurp bitcask-2.0.8/test/bitcask_qc_expiry.erl bitcask-2.0.8-stacktrace/test/bitcask_qc_expiry.erl
--- bitcask-2.0.8/test/bitcask_qc_expiry.erl 2017-03-04 01:37:58.000000000 +0200
+++ bitcask-2.0.8-stacktrace/test/bitcask_qc_expiry.erl 2021-07-04 01:12:04.076449138 +0300
@@ -148,9 +148,9 @@ prop_expiry() ->
true
end
catch
- X:Y ->
+ X:Y:S ->
io:format(user, "exception: ~p ~p @ ~p\n",
- [X,Y, erlang:get_stacktrace()]),
+ [X,Y, S]),
test_exception
after
bitcask:close(Bref)