From 3cdeaf987fb67134cb3c2771cf7d095acd4275e7 Mon Sep 17 00:00:00 2001
From: "Jianhong.Yin" <yin-jianhong@163.com>
Date: Fri, 27 Apr 2018 21:18:55 +0800
Subject: [PATCH] fix bug when process '--' argument

Signed-off-by: Jianhong Yin <yin-jianhong@163.com>
---
 getOpt-3.0/getOpt.tcl | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/getOpt-3.0/getOpt.tcl b/getOpt-3.0/getOpt.tcl
index 4211343..aa0e2e3 100755
--- a/getOpt-3.0/getOpt.tcl
+++ b/getOpt-3.0/getOpt.tcl
@@ -50,9 +50,8 @@ proc ::getOpt::argparse {optionList argvVar optVar optArgVar} {
 		return $::getOpt::flag(NOTOPT)
 	}
 	if {$rarg in {--}} {
-		set optArg [lrange $argv 1 end]
-		set argv [list]
-		return $::getOpt::flag(NOTOPT)
+		set argv [lrange $argv 1 end]
+		return $::getOpt::flag(END)
 	}
 
 	set argv [lrange $argv 1 end]
@@ -227,7 +226,8 @@ proc ::getOpt::getOptions {optLists argv validOptionVar invalidOptionVar notOpti
 			#unknown options
 			set invalidOption($opt) "unkown options"
 		} elseif {$ret == $::getOpt::flag(END)} {
-			#end of nargv
+			#end of nargv or get --
+			set notOption [concat $notOption $nargv]
 			break
 		}
 	}