diff options
| -rw-r--r-- | src/rabbit_control.erl | 21 |
1 files changed, 13 insertions, 8 deletions
diff --git a/src/rabbit_control.erl b/src/rabbit_control.erl index 2858e55cd3..6fa25ba6b3 100644 --- a/src/rabbit_control.erl +++ b/src/rabbit_control.erl @@ -371,14 +371,19 @@ action(report, Node, _Args, _Opts, Inform) -> ok; action(eval, Node, [Expr], _Opts, _Inform) -> - {ok, Scanned, _} = erl_scan:string(Expr), - case erl_parse:parse_exprs(Scanned) of - {ok, Parsed} -> - {value, Value, _} = unsafe_rpc(Node, erl_eval, exprs, [Parsed, []]), - io:format("~p~n", [Value]), - ok; - {error, {1, erl_parse, Err}} -> - {error, Err} + case erl_scan:string(Expr) of + {ok, Scanned, _} -> + case erl_parse:parse_exprs(Scanned) of + {ok, Parsed} -> + {value, Value, _} = unsafe_rpc( + Node, erl_eval, exprs, [Parsed, []]), + io:format("~p~n", [Value]), + ok; + {error, {1, erl_parse, Err}} -> + {error, Err} + end; + {error, {1, erl_scan, E}, _} -> + {error, ["scan error: ", E]} end. %%---------------------------------------------------------------------------- |