From e84391a6a90f0e0a33b849c52b38a60b7a9014c0 Mon Sep 17 00:00:00 2001 From: Evgeny Khramtsov Date: Sat, 15 Jun 2019 15:14:45 +0300 Subject: [PATCH] Use list_to_existing_atom/1 wherever possible --- src/ejabberd_cluster.erl | 2 +- src/ejabberd_oauth.erl | 2 +- src/ejabberd_router.erl | 2 +- src/ejabberd_sm.erl | 2 +- src/gen_mod.erl | 2 +- 5 files changed, 5 insertions(+), 5 deletions(-) diff --git a/src/ejabberd_cluster.erl b/src/ejabberd_cluster.erl index bf420e0f7..e2b02f7f8 100644 --- a/src/ejabberd_cluster.erl +++ b/src/ejabberd_cluster.erl @@ -194,7 +194,7 @@ code_change(_OldVsn, State, _Extra) -> %%%=================================================================== get_mod() -> Backend = ejabberd_option:cluster_backend(), - list_to_atom("ejabberd_cluster_" ++ atom_to_list(Backend)). + list_to_existing_atom("ejabberd_cluster_" ++ atom_to_list(Backend)). rpc_timeout() -> ejabberd_option:rpc_timeout(). diff --git a/src/ejabberd_oauth.erl b/src/ejabberd_oauth.erl index 5a18f02f8..1d03626e7 100644 --- a/src/ejabberd_oauth.erl +++ b/src/ejabberd_oauth.erl @@ -565,7 +565,7 @@ process(_Handlers, _Request) -> get_db_backend() -> DBType = ejabberd_option:oauth_db_type(), - list_to_atom("ejabberd_oauth_" ++ atom_to_list(DBType)). + list_to_existing_atom("ejabberd_oauth_" ++ atom_to_list(DBType)). %% Headers as per RFC 6749 diff --git a/src/ejabberd_router.erl b/src/ejabberd_router.erl index 4a2a6bd30..325dd75f3 100644 --- a/src/ejabberd_router.erl +++ b/src/ejabberd_router.erl @@ -429,7 +429,7 @@ get_domain_balancing(From, To, LDomain) -> -spec get_backend() -> module(). get_backend() -> DBType = ejabberd_option:router_db_type(), - list_to_atom("ejabberd_router_" ++ atom_to_list(DBType)). + list_to_existing_atom("ejabberd_router_" ++ atom_to_list(DBType)). -spec cache_nodes(module()) -> [node()]. cache_nodes(Mod) -> diff --git a/src/ejabberd_sm.erl b/src/ejabberd_sm.erl index f0c705aae..f0a10e5fa 100644 --- a/src/ejabberd_sm.erl +++ b/src/ejabberd_sm.erl @@ -881,7 +881,7 @@ force_update_presence({LUser, LServer}) -> get_sm_backend(Host) -> DBType = ejabberd_option:sm_db_type(Host), - list_to_atom("ejabberd_sm_" ++ atom_to_list(DBType)). + list_to_existing_atom("ejabberd_sm_" ++ atom_to_list(DBType)). -spec get_sm_backends() -> [module()]. diff --git a/src/gen_mod.erl b/src/gen_mod.erl index f0a35e316..2e590d066 100644 --- a/src/gen_mod.erl +++ b/src/gen_mod.erl @@ -353,7 +353,7 @@ db_mod(Opt, Host, Module) when is_binary(Host) orelse Host == global -> db_mod(Opt, Opts, Module) when is_map(Opts) -> db_mod(Opt, get_opt(Opt, Opts), Module); db_mod(_Opt, Type, Module) when is_atom(Type) -> - list_to_atom(atom_to_list(Module) ++ "_" ++ atom_to_list(Type)). + list_to_existing_atom(atom_to_list(Module) ++ "_" ++ atom_to_list(Type)). -spec loaded_modules(binary()) -> [atom()]. loaded_modules(Host) ->