Fixed an issue with wrapping new objects into tl::Variants which are returned directly. For these objects, ownership needs to be transferred to the script.

src/tl/tl/tlVariant.cc

@@ -2460,8 +2460,18 @@ void Variant::user_destroy ()
   void *obj = to_user ();
   if (obj) {
     user_cls ()->destroy (obj);
+    m_type = t_nil;
   }
-  reset ();
+}
+
+void *Variant::user_take ()
+{
+  tl_assert (is_user ());
+  void *obj = to_user ();
+  if (obj) {
+    m_type = t_nil;
+  }
+  return obj;
 }
 
 void Variant::user_assign (const tl::Variant &other)

src/tl/tl/tlVariant.h

@@ -861,6 +861,11 @@ public:
    */
   void user_destroy ();
 
+  /**
+   *  @brief Takes the user object and releases it from the variant
+   */
+  void *user_take ();
+
   /**
    *  @brief Assigns the object stored in other to self
    *