fix binary data handling in tcl

diff --git a/bindings/solv.i b/bindings/solv.i
index 9307c58e669428da6cb202046a09d5ab59a6d5ec..d9a9ebf755df62d69e4cb8b0ed398df73772a5d4 100644 (file)
--- a/bindings/solv.i
+++ b/bindings/solv.i
@@ -50,7 +50,7 @@ typedef struct {
 #if defined(SWIGPYTHON) && defined(PYTHON3)
   $result = $1.data ? Py_BuildValue("y#", $1.data, $1.len) : SWIG_Py_Void();
 #elif defined(SWIGTCL)
-  Tcl_SetObjResult(interp, SWIG_FromCharPtrAndSize($1.data, $1.len));
+  Tcl_SetObjResult(interp, $1.data ? Tcl_NewByteArrayObj($1.data, $1.len) : NULL);
 #else
   $result = SWIG_FromCharPtrAndSize($1.data, $1.len);
 #if defined(SWIGPERL)