getOpt.tcl: init out var and remove used var

tcler · Aug 28, 2017 · 891c823 · 891c823
1 parent 7b1e434
commit 891c823
Showing 1 changed file with 5 additions and 2 deletions.
diff --git a/getOpt-3.0/getOpt.tcl b/getOpt-3.0/getOpt.tcl
@@ -167,12 +167,15 @@ proc ::getOpt::getOptions {optLists argv validOptionVar invalidOptionVar notOpti
 	upvar $notOptionVar notOption
 	upvar $forwardOptionVar forwardOption
 
-	set optList "[concat {*}[dict values $optLists]]"
+	#clear out var
+	array unset validOption *
+	array unset invalidOption *
 	set notOption [list]
+
+	set optList "[concat {*}[dict values $optLists]]"
 	set opt ""
 	set optarg ""
 	set nargv $argv
-	set forwardOpts ""
 	#set argc [llength $nargv]
 
 	while {1} {