[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