[packages/eggdrop/eggdrop-1.6.19] - one more fix for tcl interp->result
baggins
baggins at pld-linux.org
Wed Jun 11 11:20:34 CEST 2014
commit b1dbc3d541a21f295358a78f2f669e620d19b517
Author: Jan Rękorajski <baggins at pld-linux.org>
Date: Wed Jun 11 11:19:57 2014 +0200
- one more fix for tcl interp->result
tcl.patch | 9 +++++++++
1 file changed, 9 insertions(+)
---
diff --git a/tcl.patch b/tcl.patch
index fcb046e..bf85b47 100644
--- a/tcl.patch
+++ b/tcl.patch
@@ -272,6 +272,15 @@ diff -urN eggdrop1.6.19/src/tcl.c eggdrop1.6.21/src/tcl.c
static tcl_strings def_tcl_strings[] = {
{"botnet-nick", botnetnick, HANDLEN, 0},
{"userfile", userfile, 120, STR_PROTECT},
+@@ -744,7 +744,7 @@
+ #ifdef USE_TCL_ENCODING
+ /* properly convert string to system encoding. */
+ Tcl_DStringInit(&dstr);
+- Tcl_UtfToExternalDString(NULL, interp->result, -1, &dstr);
++ Tcl_UtfToExternalDString(NULL, tcl_resultstring(), -1, &dstr);
+ result = Tcl_DStringValue(&dstr);
+ #else
+ /* use old pre-Tcl 8.1 way. */
diff -urN eggdrop1.6.19/src/tcldcc.c eggdrop1.6.21/src/tcldcc.c
--- eggdrop1.6.19/src/tcldcc.c 2014-06-11 10:14:43.556810549 +0200
+++ eggdrop1.6.21/src/tcldcc.c 2011-02-13 15:19:33.000000000 +0100
================================================================
---- gitweb:
http://git.pld-linux.org/gitweb.cgi/packages/eggdrop.git/commitdiff/b1dbc3d541a21f295358a78f2f669e620d19b517
More information about the pld-cvs-commit
mailing list