Skip to content
Snippets Groups Projects
Commit e1359d97 authored by Patrick Baudin's avatar Patrick Baudin
Browse files

[Ptests] 'STDOPT: options' defaults to 'STDOPT: +"options"'

parent a18e6600
No related branches found
No related tags found
No related merge requests found
......@@ -765,7 +765,7 @@ end = struct
let make_custom_opts =
let space = Str.regexp " " in
fun ~file ~dir stdopts s ->
fun ~file:_ ~dir:_ stdopts s ->
let rec aux opts s =
try
Scanf.sscanf s "%_[ ]%1[+#\\-]%_[ ]%S%_[ ]%s@\n"
......@@ -777,10 +777,7 @@ end = struct
| _ -> assert false (* format of scanned string disallow it *))
with
| Scanf.Scan_failure _ ->
if s <> "" then
Format.eprintf "%a: unknown STDOPT configuration string: %s@."
(SubDir.pp_file ~dir) file s;
opts
if s <> "" then s::opts else opts
| End_of_file -> opts
in
(* NB: current settings does not allow to remove a multiple-argument
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment