getref, setref: reference may be qualified

oo.tcl returns globally qualified names like
::<reference.<tree___>.00000000000000000000>

So allow getref and setref to handle these qualified references

Fixes #218

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

1 files changed, 4 insertions, 0 deletions

diff --git a/jim.c b/jim.c
index 8ae6f35..e896804 100644
--- a/jim.c
+++ b/jim.c
@@ -5325,6 +5325,10 @@ static int SetReferenceFromAny(Jim_Interp *interp, Jim_Obj *objPtr)
 
     /* Get the string representation */
     str = Jim_GetString(objPtr, &len);
+    if (str[0] == ':' && str[1] == ':') {
+        str +=2;
+        len -= 2;
+    }
     /* Check if it looks like a reference */
     if (len < JIM_REFERENCE_SPACE)
         goto badformat;