File 0826-Dets-should-Write-to-error-logger-not-stdout-when-re.patch of Package erlang
From 3bad824f01814b6ec4fa22c756077a13451fcba2 Mon Sep 17 00:00:00 2001
From: Richard Carlsson <carlsson.richard@gmail.com>
Date: Sat, 21 Dec 2024 20:07:56 +0100
Subject: [PATCH 2/2] Dets should Write to error logger, not stdout when
repairing tables
---
lib/stdlib/src/dets.erl | 10 +++++-----
1 file changed, 5 insertions(+), 5 deletions(-)
diff --git a/lib/stdlib/src/dets.erl b/lib/stdlib/src/dets.erl
index 7f2e382a83..cedb9aee40 100644
--- a/lib/stdlib/src/dets.erl
+++ b/lib/stdlib/src/dets.erl
@@ -3188,7 +3188,7 @@ fopen2(Fname, Tab) ->
end,
case Do of
{repair, Mess} ->
- io:format(user, "dets: file ~tp~s~n", [Fname, Mess]),
+ error_logger:format("dets: file ~tp~s~n", [Fname, Mess]),
case fsck(Fd, Tab, Fname, FH, default, default) of
ok ->
fopen2(Fname, Tab);
@@ -3267,7 +3267,7 @@ fopen_existing_file(Tab, OpenArgs) ->
_ when FH#fileheader.keypos =/= Kp ->
throw({error, {keypos_mismatch, Fname}});
{compact, SourceHead} ->
- io:format(user, "dets: file ~tp is now compacted ...~n", [Fname]),
+ error_logger:format("dets: file ~tp is now compacted ...~n", [Fname]),
{ok, NewSourceHead} = open_final(SourceHead, Fname, read, false,
?DEFAULT_CACHE, Tab, Debug),
case catch compact(NewSourceHead) of
@@ -3277,14 +3277,14 @@ fopen_existing_file(Tab, OpenArgs) ->
_Err ->
_ = file:close(Fd),
dets_utils:stop_disk_map(),
- io:format(user, "dets: compaction of file ~tp failed, "
- "now repairing ...~n", [Fname]),
+ error_logger:format("dets: compaction of file ~tp failed, "
+ "now repairing ...~n", [Fname]),
{ok, Fd2, _FH} = read_file_header(Fname, Acc, Ram),
do_repair(Fd2, Tab, Fname, FH, MinSlots, MaxSlots,
OpenArgs)
end;
{repair, Mess} ->
- io:format(user, "dets: file ~tp~s~n", [Fname, Mess]),
+ error_logger:format("dets: file ~tp~s~n", [Fname, Mess]),
do_repair(Fd, Tab, Fname, FH, MinSlots, MaxSlots,
OpenArgs);
{final, H} ->
--
2.43.0