aboutsummaryrefslogtreecommitdiffstats
path: root/lib/test_server/src/test_server_gl.erl
diff options
context:
space:
mode:
authorPeter Andersson <[email protected]>2016-05-02 01:14:10 +0200
committerPeter Andersson <[email protected]>2016-05-02 15:32:49 +0200
commitb7ced331aa797567c4e180eec0b59e59f7227044 (patch)
treed07f20153257cd15debddcad4127ed9991eb7c55 /lib/test_server/src/test_server_gl.erl
parent6c9fe3aaf3de6b400db4054bc67bf24c4e720861 (diff)
downloadotp-b7ced331aa797567c4e180eec0b59e59f7227044.tar.gz
otp-b7ced331aa797567c4e180eec0b59e59f7227044.tar.bz2
otp-b7ced331aa797567c4e180eec0b59e59f7227044.zip
Add flag/option for disabling the character escaping functionality
OTP-13537
Diffstat (limited to 'lib/test_server/src/test_server_gl.erl')
-rw-r--r--lib/test_server/src/test_server_gl.erl6
1 files changed, 5 insertions, 1 deletions
diff --git a/lib/test_server/src/test_server_gl.erl b/lib/test_server/src/test_server_gl.erl
index 0acc73047c..444cfa595f 100644
--- a/lib/test_server/src/test_server_gl.erl
+++ b/lib/test_server/src/test_server_gl.erl
@@ -131,6 +131,10 @@ set_props(GL, PropList) ->
%%% Internal functions.
init([]) ->
+ EscChars = case application:get_env(test_server, esc_chars) of
+ {ok,ECBool} -> ECBool;
+ _ -> true
+ end,
{ok,#st{tc_supervisor=none,
minor=none,
minor_monitor=none,
@@ -139,7 +143,7 @@ init([]) ->
permit_io=gb_sets:empty(),
auto_nl=true,
levels={1,19,10},
- escape_chars=true
+ escape_chars=EscChars
}}.
req(GL, Req) ->