Disable server_host warnings

diff --git a/src/ejabberd_sql_pt.erl b/src/ejabberd_sql_pt.erl
index 197e5ee6d85788cadfa2a89e66fc5582ef7915b4..a3203943677006341a35642879d8932a8df5ab9a 100644 (file)
--- a/src/ejabberd_sql_pt.erl
+++ b/src/ejabberd_sql_pt.erl
@@ -701,8 +701,17 @@ filter_upsert_sh(Table, ParseRes) ->
               end, ParseRes)
     end.
 
+-ifdef(ENABLE_PT_WARNINGS).
+
 add_warning(Pos, Warning) ->
     Marker = erl_syntax:revert(
                erl_syntax:warning_marker({Pos, ?MODULE, Warning})),
     put(warnings, [Marker | get(warnings)]),
     ok.
+
+-else.
+
+add_warning(_Pos, _Warning) ->
+    ok.
+
+-endif.