aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorDan Gudmundsson <[email protected]>2017-05-31 10:05:29 +0200
committerDan Gudmundsson <[email protected]>2017-05-31 10:05:29 +0200
commit0a6d15b8da355f8e14671b4019f44e46f0b594db (patch)
tree110ef7734f6b0f514c1ae88a820bb8a2067f6101
parentb182febe36aa63eb8290f24ba4b7932673a9a9bc (diff)
downloadotp-0a6d15b8da355f8e14671b4019f44e46f0b594db.tar.gz
otp-0a6d15b8da355f8e14671b4019f44e46f0b594db.tar.bz2
otp-0a6d15b8da355f8e14671b4019f44e46f0b594db.zip
observer: Allow edit of pid, port and refs
Use lib:extended_parse_term/1 to allow editing terms which contains pids, ports and terms. ERL-178
-rw-r--r--lib/observer/src/observer_lib.erl4
1 files changed, 2 insertions, 2 deletions
diff --git a/lib/observer/src/observer_lib.erl b/lib/observer/src/observer_lib.erl
index 7352af936c..c7ee294719 100644
--- a/lib/observer/src/observer_lib.erl
+++ b/lib/observer/src/observer_lib.erl
@@ -636,12 +636,12 @@ user_term_multiline(Parent, Title, Default) ->
parse_string(Str) ->
try
- Tokens = case erl_scan:string(Str) of
+ Tokens = case erl_scan:string(Str, 1, [text]) of
{ok, Ts, _} -> Ts;
{error, {_SLine, SMod, SError}, _} ->
throw(io_lib:format("~s", [SMod:format_error(SError)]))
end,
- case erl_parse:parse_term(Tokens) of
+ case lib:extended_parse_term(Tokens) of
{error, {_PLine, PMod, PError}} ->
throw(io_lib:format("~s", [PMod:format_error(PError)]));
Res -> Res