From b405a3b61ee8a69bf6e76580cfc4bcd4f971c154 Mon Sep 17 00:00:00 2001
From: Badlop <badlop@process-one.net>
Date: Mon, 14 Mar 2022 19:47:13 +0100
Subject: [PATCH] Fix compilation with Erlang 19

---
 src/ejabberd_hooks.erl | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

diff --git a/src/ejabberd_hooks.erl b/src/ejabberd_hooks.erl
index 1b3c27cf6..3a440e455 100644
--- a/src/ejabberd_hooks.erl
+++ b/src/ejabberd_hooks.erl
@@ -544,9 +544,10 @@ run_event_handlers(TracingOpts, Hook, Host, Event, EventArgs, RunType) ->
                             ok
                     catch
                         ?EX_RULE(E, R, St) ->
+                            Stack = ?EX_STACK(St),
                             ?ERROR_MSG(
                                 "(~0p|~ts|~0p) Tracing event '~0p' handler exception(~0p): ~0p: ~0p",
-                                [Hook, Host, erlang:self(), EventHandler, E, R, St]
+                                [Hook, Host, erlang:self(), EventHandler, E, R, Stack]
                             ),
                             ok
                     end
@@ -719,7 +720,8 @@ tracing_output(#{output_function := OutputF}, Text, Args) ->
             ok
     catch
         ?EX_RULE(E, R, St) ->
-            ?ERROR_MSG("Tracing output function exception(~0p): ~0p: ~0p", [E, R, St]),
+            Stack = ?EX_STACK(St),
+            ?ERROR_MSG("Tracing output function exception(~0p): ~0p: ~0p", [E, R, Stack]),
             ok
     end;
 tracing_output(#{output_log_level := Output}, Text, Args) ->