options: fix setting network-specific options from command-line

fix #34
ygrek · Jul 30, 2024 · 911fa54 · 911fa54
1 parent d201d57
commit 911fa54
Showing 1 changed file with 6 additions and 1 deletion.
diff --git a/src/utils/lib/options.ml4 b/src/utils/lib/options.ml4
@@ -1156,7 +1156,12 @@ let simple_args prefix opfile =
        Arg.String
          (fun s ->
             lprintf_nl "Setting option %s" oi.M.option_name;
-            set_simple_option opfile oi.M.option_name s),
+            let name =
+              match String2.split oi.M.option_name '-' with
+              | [ _ (* ^ "-" = prefix *); name ] -> name (* opfile is corresponding to prefix *)
+              | _ -> oi.M.option_name
+            in
+            set_simple_option opfile name s),
        Printf.sprintf "<string> : \t%s (current: %s)"
          oi.M.option_help oi.M.option_value)
     (simple_options prefix opfile true)