Include all double colons as part of the var name

e.g. $::a::b is considered as ${::a::b}
This helps be more Tcl compatible by allowing fake namespace variables

Signed-off-by: Steve Bennett <steveb@workware.net.au>

1 files changed, 6 insertions, 5 deletions

diff --git a/jim.c b/jim.c
index fcb6d2d..573656f 100644
--- a/jim.c
+++ b/jim.c
@@ -1309,12 +1309,13 @@ static int JimParseVar(struct JimParserCtx *pc)
         }
     }
     else {
-        /* Include leading colons */
-        while (*pc->p == ':') {
-            pc->p++;
-            pc->len--;
-        }
         while (!stop) {
+            /* Skip double colon, but not single colon! */
+            if (pc->p[0] == ':' && pc->len > 1 && pc->p[1] == ':') {
+                pc->p += 2;
+                pc->len -= 2;
+                continue;
+            }
             if (!((*pc->p >= 'a' && *pc->p <= 'z') ||
                     (*pc->p >= 'A' && *pc->p <= 'Z') ||
                     (*pc->p >= '0' && *pc->p <= '9') || *pc->p == '_'))