getOpt.tcl: fix forward process

tcler · Apr 19, 2017 · ef35702 · ef35702
1 parent 7de3cc3
commit ef35702
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/getOpt-3.0/getOpt.tcl b/getOpt-3.0/getOpt.tcl
@@ -186,7 +186,7 @@ proc ::getOpt::getOptions {optLists argv validOptionVar invalidOptionVar notOpti
 			}
 
 			set forward {}
-			if [dict exists $optList $opt forward] {
+			if [dict exists $optAttr forward] {
 				set forward y
 			}