Remove 'with-' prefix from the prefix list in 'getopt' as it is no lo…

…nger needed there.
msteveb · May 14, 2017 · 0432857 · 0432857
1 parent 85498ae
commit 0432857
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/lib/getopt.tcl b/lib/getopt.tcl
@@ -33,7 +33,7 @@ proc getopt {argvname} {
 			# --name=value
 			dict lappend opts $name [list str $value]
 		} elseif {[regexp {^--(enable-|disable-)?([^=]*)$} $arg -> prefix name]} {
-			if {$prefix in {enable- with- ""}} {
+			if {$prefix in {enable- ""}} {
 				set value 1
 			} else {
 				set value 0