File 0154-escript-direct-put_chars-1-fallback-to-stderr.patch of Package erlang

From e93b3d74d4087bf883538f9d9fabe3483ef2efa9 Mon Sep 17 00:00:00 2001
From: Mikael Pettersson <mikpelinux@gmail.com>
Date: Sat, 12 Sep 2020 18:32:45 +0200
Subject: [PATCH 4/9] escript: direct put_chars/1 fallback to stderr

---
 lib/stdlib/src/escript.erl | 7 ++++++-
 1 file changed, 6 insertions(+), 1 deletion(-)

diff --git a/lib/stdlib/src/escript.erl b/lib/stdlib/src/escript.erl
index 6d7793a8cd..b264c6d8e0 100644
--- a/lib/stdlib/src/escript.erl
+++ b/lib/stdlib/src/escript.erl
@@ -900,9 +900,14 @@ put_chars(String) ->
         io:put_chars(standard_error, String)
     catch
         _:_ ->
-            erlang:display(lists:flatten(String))
+            display_err(lists:flatten(String))
     end.
 
+display_err(String) ->
+    Port = open_port({fd,2,2}, [out,binary]),
+    Port ! {self(), {command, list_to_binary(String)}},
+    port_close(Port).
+
 a0() ->
     anno(0).
 
-- 
2.26.2

openSUSE Build Service is sponsored by