From b7ced331aa797567c4e180eec0b59e59f7227044 Mon Sep 17 00:00:00 2001
From: Peter Andersson <peppe@erlang.org>
Date: Mon, 2 May 2016 01:14:10 +0200
Subject: Add flag/option for disabling the character escaping functionality

OTP-13537
---
 lib/test_server/src/test_server_gl.erl | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

(limited to 'lib/test_server/src/test_server_gl.erl')

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) ->
-- 
cgit v1.2.3