diff options
author | Steve Vinoski <vinoski@ieee.org> | 2010-05-09 12:19:16 -0400 |
---|---|---|
committer | Raimo Niskanen <raimo@erlang.org> | 2010-05-27 16:53:24 +0200 |
commit | dab11bf07c66e1f119cc5d6198c8e90c5a02219e (patch) | |
tree | c4d69fedca3ab23224239ee2fc058867f08afe2b /lib/stdlib/src/gen_server.erl | |
parent | 02e434b8befb2696adc98f23bcc195e1ae0539c3 (diff) | |
download | otp-dab11bf07c66e1f119cc5d6198c8e90c5a02219e.tar.gz otp-dab11bf07c66e1f119cc5d6198c8e90c5a02219e.tar.bz2 otp-dab11bf07c66e1f119cc5d6198c8e90c5a02219e.zip |
handle {global, term()} names in format_status/2
The gen_fsm, gen_server, and wx_object format_status implementations
fail to handle global names of the form {global, term()} where term()
is something other than an atom, pid, or list. Change these
format_status implementations to treat names that are atoms, pids, or
lists as before, but for all other terms, set the header property of
the function return value to a tuple whose first element is a string
describing the return value and whose second element is the name term.
Add unit tests for gen_server and gen_fsm to verify sys:get_status
calls work successfully for globally registered instances.
Diffstat (limited to 'lib/stdlib/src/gen_server.erl')
-rw-r--r-- | lib/stdlib/src/gen_server.erl | 15 |
1 files changed, 9 insertions, 6 deletions
diff --git a/lib/stdlib/src/gen_server.erl b/lib/stdlib/src/gen_server.erl index dc8e7ecd16..ac81df9cab 100644 --- a/lib/stdlib/src/gen_server.erl +++ b/lib/stdlib/src/gen_server.erl @@ -840,12 +840,15 @@ name_to_pid(Name) -> %%----------------------------------------------------------------- format_status(Opt, StatusData) -> [PDict, SysState, Parent, Debug, [Name, State, Mod, _Time]] = StatusData, - NameTag = if is_pid(Name) -> - pid_to_list(Name); - is_atom(Name) -> - Name - end, - Header = lists:concat(["Status for generic server ", NameTag]), + StatusHdr = "Status for generic server", + Header = if + is_pid(Name) -> + lists:concat([StatusHdr, " ", pid_to_list(Name)]); + is_atom(Name); is_list(Name) -> + lists:concat([StatusHdr, " ", Name]); + true -> + {StatusHdr, Name} + end, Log = sys:get_debug(log, Debug, []), DefaultStatus = [{data, [{"State", State}]}], Specfic = |