Allow to pass value starting with '-' on config subcmd

Allow to pass configuration option value starting with minus sign (-) on
config sub-command. Was previously mistaken with command-line switches.
This change allows to subtract a value to a configuration option already
set.

Author: xdelaruelle

tcl/main.tcl.in

@@ -1067,9 +1067,10 @@ if {[catch {
                      lassign [parseModuleCommandName $subcmdtest {}]\
                         subcmdtest
                   }
-                  # accepted if command is ml or if adv vers spec is enabled
-                  # and command can receive boolean variant specification
-                  set accept_minus_arg [expr {$subcmdtest eq {ml} ||\
+                  # accepted if command is ml or config or if adv vers spec is
+                  # enabled and command can receive boolean variant
+                  # specification
+                  set accept_minus_arg [expr {$subcmdtest in {ml config} ||\
                      ([getConf advanced_version_spec] && $subcmdtest in\
                      {avail list display help is-avail is-loaded load path\
                      paths switch test unload whatis mod-to-sh source})}]

testsuite/modules.70-maint/220-config.exp

@@ -277,7 +277,7 @@ foreach param [array names configvalid] {
 
                 # invalid value test
                 set tserr [if_configlocked $param [err_conflocked $param] "$error_msgs: Invalid value for configuration option '$param'\n  Value should be an integer comprised between $lowerbound and $upperbound"]
-                testouterr_cmd_re sh "config $param -10" ERR "$error_msgs: Invalid option '-10'\n$err_typehelp"
+                testouterr_cmd_re sh "config $param -10" ERR $tserr
                 testouterr_cmd_re sh "config $param [expr {$upperbound + 10}]" ERR $tserr
                 testouterr_cmd_re sh "config $param foo" ERR $tserr
             }