Uarg: fix parsing of equal sign '=' following command line option names

The change makes the parser only take a single '=' as delimiter after an
option name and lets it consider as valid other '=' in the value to the
option.

Splitting the argument with Util.splitAtFirstChar instead of
Util.splitIntoWords also disables parsing of the escaping backslash in
the option.

1 files changed, 2 insertions, 2 deletions

diff --git a/src/ubase/uarg.ml b/src/ubase/uarg.ml
index 5ffd924..f2e5444 100644
--- a/src/ubase/uarg.ml
+++ b/src/ubase/uarg.ml
@@ -69,7 +69,7 @@ let parse speclist anonfun errmsg =
   while !current < l do
     let ss = argv.(!current) in
     if String.length ss >= 1 & String.get ss 0 = '-' then begin
-      let args = Util.splitIntoWords ss '=' in
+      let args = Util.splitAtFirstChar ss '=' in
       let s = Safelist.nth args 0 in
       let arg conv mesg =
         match args with
@@ -79,7 +79,7 @@ let parse speclist anonfun errmsg =
              incr current;
              (try conv a with Failure _ -> stop (Wrong (s, a, mesg)))
         | [_;a] -> (try conv a with Failure _ -> stop (Wrong (s, a, mesg)))
-        | _ -> stop (Message (sprintf "Garbled argument %s" s)) in
+        | _ -> assert false in
       let action =
         try assoc3 s speclist
         with Not_found -> stop (Unknown s)