From 05f604d7f6e5ca3a0b005ae7ae1073f2b9e83207 Mon Sep 17 00:00:00 2001
From: Bernhard Schommer <bernhardschommer@gmail.com>
Date: Mon, 30 Nov 2015 17:58:22 +0100
Subject: Open files in binary mode.

On windows opening files in text mode can result in errors due to
non-windows compatible input. Thus open files only in binary mode.
Bug 17664
---
 lib/Readconfig.mll | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

(limited to 'lib/Readconfig.mll')

diff --git a/lib/Readconfig.mll b/lib/Readconfig.mll
index ec2f6bb0..6cb3409d 100644
--- a/lib/Readconfig.mll
+++ b/lib/Readconfig.mll
@@ -82,7 +82,7 @@ and doublequote = parse
 (* The entry point *)
 
 let read_config_file filename =
-  let ic = open_in filename in
+  let ic = open_in_bin filename in
   let lexbuf = Lexing.from_channel ic in
   Lexing.(lexbuf.lex_start_p <- {lexbuf.lex_start_p with pos_fname = filename});
   try
@@ -108,4 +108,3 @@ let _ =
 *)
 
 }
-
-- 
cgit