File 0559-Add-missing-case-clause.patch of Package erlang
From 7d3a14bc7abd77aaf1ed48111e9bff10e14530a7 Mon Sep 17 00:00:00 2001
From: Lukasz Samson <lukaszsamson@gmail.com>
Date: Mon, 6 Nov 2023 20:46:29 +0100
Subject: [PATCH] Add missing case clause
Fix crash in file:consult/1 when io:read/3 returns {error, ErrorDescription}
---
lib/kernel/src/file.erl | 2 ++
1 file changed, 2 insertions(+)
diff --git a/lib/kernel/src/file.erl b/lib/kernel/src/file.erl
index 16278e4384..f2def59725 100644
--- a/lib/kernel/src/file.erl
+++ b/lib/kernel/src/file.erl
@@ -1481,6 +1481,8 @@ consult_stream(Fd, Line, Acc) ->
case io:read(Fd, '', Line) of
{ok,Term,EndLine} ->
consult_stream(Fd, EndLine, [Term|Acc]);
+ {error,Error} ->
+ {error,Error};
{error,Error,_Line} ->
{error,Error};
{eof,_Line} ->
--
2.35.3