summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorMatthew Sackman <matthew@rabbitmq.com>2011-01-20 16:55:07 +0000
committerMatthew Sackman <matthew@rabbitmq.com>2011-01-20 16:55:07 +0000
commit15e93f4bd518848965fe22556200402270a1112d (patch)
treead0713ffc2e9f584ac9b828682d11f12be37badb
parent9b01ba889cf62aea9bb5a29062610139bdecc6a2 (diff)
parent1b384986f1a9bb660324077f63e8720f7dfffd40 (diff)
downloadrabbitmq-server-15e93f4bd518848965fe22556200402270a1112d.tar.gz
Merging bug23723 into default
-rw-r--r--src/rabbit_control.erl11
1 files changed, 7 insertions, 4 deletions
diff --git a/src/rabbit_control.erl b/src/rabbit_control.erl
index 78391be2..4228ff7f 100644
--- a/src/rabbit_control.erl
+++ b/src/rabbit_control.erl
@@ -273,10 +273,13 @@ action(list_consumers, Node, _Args, Opts, Inform) ->
Inform("Listing consumers", []),
VHostArg = list_to_binary(proplists:get_value(?VHOST_OPT, Opts)),
InfoKeys = [queue_name, channel_pid, consumer_tag, ack_required],
- display_info_list(
- [lists:zip(InfoKeys, tuple_to_list(X)) ||
- X <- rpc_call(Node, rabbit_amqqueue, consumers_all, [VHostArg])],
- InfoKeys);
+ case rpc_call(Node, rabbit_amqqueue, consumers_all, [VHostArg]) of
+ L when is_list(L) -> display_info_list(
+ [lists:zip(InfoKeys, tuple_to_list(X)) ||
+ X <- L],
+ InfoKeys);
+ Other -> Other
+ end;
action(set_permissions, Node, [Username, CPerm, WPerm, RPerm], Opts, Inform) ->
VHost = proplists:get_value(?VHOST_OPT, Opts),