Ignore indirect dependencies of rabbit in rabbit_plugins

The goal of maybe_keep_required_deps() is still the same: we don't want
to list applications from $RABBITMQ_PLUGINS_DIR the rabbit application
depends on. Now, the function handles indirect dependencies.

Signed-off-by: Jean-Sébastien Pedron <[email protected]>

[#136346167]

This commit is cherry-picked from `master` because rabbit_common now
depends on recon: having rabbit_common depend on 3rd-party applications
didn't happen so far in stable and wasn't supported. This broke the
creation of the standalone package.

(cherry picked from commit cbbcc3e)

Author: Gerhard Lazu

Makefile

@@ -114,7 +114,7 @@ define PROJECT_ENV
 	  ]
 endef
 
-LOCAL_DEPS = sasl mnesia os_mon xmerl
+LOCAL_DEPS = sasl mnesia os_mon
 DEPS = ranch rabbit_common
 TEST_DEPS = rabbitmq_ct_helpers rabbitmq_ct_client_helpers amqp_client meck proper
 

src/rabbit_plugins.erl

@@ -418,16 +418,31 @@ remove_duplicate_plugins([Plugin|Rest], {Plugins0, Problems0}) ->
 maybe_keep_required_deps(true, Plugins) ->
     Plugins;
 maybe_keep_required_deps(false, Plugins) ->
-    %% We load the "rabbit" application to be sure we can get the
-    %% "applications" key. This is required for rabbitmq-plugins for
-    %% instance.
-    application:load(rabbit),
-    {ok, RabbitDeps} = application:get_key(rabbit, applications),
+    RabbitDeps = list_all_deps([rabbit]),
     lists:filter(fun(#plugin{name = Name}) ->
                          not lists:member(Name, RabbitDeps)
                  end,
                  Plugins).
 
+list_all_deps(Applications) ->
+    list_all_deps(Applications, []).
+
+list_all_deps([Application | Applications], Deps) ->
+    %% We load the application to be sure we can get the "applications" key.
+    %% This is required for rabbitmq-plugins for instance.
+    application:load(Application),
+    NewDeps = [Application | Deps],
+    case application:get_key(Application, applications) of
+        {ok, ApplicationDeps} ->
+            RemainingApplications0 = ApplicationDeps ++ Applications,
+            RemainingApplications = RemainingApplications0 -- NewDeps,
+            list_all_deps(RemainingApplications, NewDeps);
+        undefined ->
+            list_all_deps(Applications, NewDeps)
+    end;
+list_all_deps([], Deps) ->
+    Deps.
+
 remove_otp_overrideable_plugins(Plugins) ->
     lists:filter(fun(P) -> not plugin_provided_by_otp(P) end,
                  Plugins).