From: Michael Schroeder <mls@suse.de>
Date: Thu, 20 Aug 2015 16:00:31 +0000 (+0200)
Subject: fix binary data handling in tcl
X-Git-Tag: 0.6.12~39
X-Git-Url: http://git.ipfire.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=10b6da2c3d398ca5088900a6b622c659a6c3415d;p=thirdparty%2Flibsolv.git

fix binary data handling in tcl
---

diff --git a/bindings/solv.i b/bindings/solv.i
index 9307c58e..d9a9ebf7 100644
--- 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)