diff options
| author | Peter Andersson <[email protected]> | 2014-03-06 19:01:53 +0100 |
|---|---|---|
| committer | Peter Andersson <[email protected]> | 2014-03-06 19:01:53 +0100 |
| commit | 3dee3b4cddf4347bb1bd72ca446fa18397556c7b (patch) | |
| tree | 9bc1b14a1d7ea20cf58f19e3d30fec7465e34552 /lib/test_server | |
| parent | 544fb141916d8676bc763318074e4d0783414af1 (diff) | |
| download | otp-3dee3b4cddf4347bb1bd72ca446fa18397556c7b.tar.gz otp-3dee3b4cddf4347bb1bd72ca446fa18397556c7b.tar.bz2 otp-3dee3b4cddf4347bb1bd72ca446fa18397556c7b.zip | |
Add more info to file open failure
Diffstat (limited to 'lib/test_server')
| -rw-r--r-- | lib/test_server/src/test_server_ctrl.erl | 10 |
1 files changed, 8 insertions, 2 deletions
diff --git a/lib/test_server/src/test_server_ctrl.erl b/lib/test_server/src/test_server_ctrl.erl index dcf905db24..a56074ca0a 100644 --- a/lib/test_server/src/test_server_ctrl.erl +++ b/lib/test_server/src/test_server_ctrl.erl @@ -5476,10 +5476,16 @@ write_html_file(File,Content) -> %% The 'major' log file, which is a pure text file is also written %% with utf8 encoding open_utf8_file(File) -> - file:open(File,[write,{encoding,utf8}]). + case file:open(File,AllOpts=[write,{encoding,utf8}]) of + {error,Reason} -> {error,{Reason,{File,AllOpts}}}; + Result -> Result + end. open_utf8_file(File,Opts) -> - file:open(File,[{encoding,utf8}|Opts]). + case file:open(File,AllOpts=[{encoding,utf8}|Opts]) of + {error,Reason} -> {error,{Reason,{File,AllOpts}}}; + Result -> Result + end. %% Write a file with specified encoding write_file(File,Content,latin1) -> |