getOpt.tcl: skip first '--' in argv

tcler · Jan 16, 2018 · 83abecd · 83abecd
1 parent 891c823
commit 83abecd
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/getOpt-3.0/getOpt.tcl b/getOpt-3.0/getOpt.tcl
@@ -50,7 +50,7 @@ proc ::getOpt::argparse {optionList argvVar optVar optArgVar} {
 		return $::getOpt::flag(NOTOPT)
 	}
 	if {$rarg in {--}} {
-		set optArg [lrange $argv 0 end]
+		set optArg [lrange $argv 1 end]
 		set argv [list]
 		return $::getOpt::flag(NOTOPT)
 	}