1 files changed, 20 insertions, 0 deletions
diff --git a/sci-electronics/gnetman/files/gnetman-0.0.1_pre20110124-tcl86.patch b/sci-electronics/gnetman/files/gnetman-0.0.1_pre20110124-tcl86.patch
new file mode 100644
index 000000000000..fdb6573990f4
--- /dev/null
+++ b/sci-electronics/gnetman/files/gnetman-0.0.1_pre20110124-tcl86.patch
@@ -0,0 +1,20 @@
+--- gnetman-0.0.1_pre20110124_orig/src/tcl/tclwrap.c	2012-05-25 07:44:51.000000000 +0200
++++ gnetman-0.0.1_pre20110124/src/tcl/tclwrap.c	2013-02-24 12:58:51.000000000 +0100
+@@ -46,7 +46,7 @@
+    result = Tcl_EvalFile(interp, (char *)fileName) == TCL_OK;
+    if (!result) {
+       utWarning("Tcl error in file %s, line %d: %s", fileName,
+-         interp->errorLine, interp->result);
++         Tcl_GetErrorLine(interp), Tcl_GetStringResult(interp));
+    }
+    return result;
+ }
+@@ -75,7 +75,7 @@
+       commandLine[xChar] = '\0';
+       result = Tcl_Eval(interp, commandLine);
+       if (result == TCL_ERROR) {
+-        utWarning("Tcl error: %s", interp->result);
++        utWarning("Tcl error: %s", Tcl_GetStringResult(interp));
+       }
+    } while (result != TCL_RETURN);
+    return true;