eggdrop-vanilla-bz-463.patch

   1 diff -burNp eggdrop1.6.19/src/tcl.c eggdrop1.6.19-new/src/tcl.c
   2 --- eggdrop1.6.19/src/tcl.c     2008-02-16 22:41:04.000000000 +0100
   3 +++ eggdrop1.6.19-new/src/tcl.c 2008-09-22 16:45:55.460597054 +0200
   4 @@ -282,7 +282,7 @@ static char *tcl_eggstr(ClientData cdata
   5        if (!obj)
   6          return NULL;
   7        len = 0;
   8 -      bytes = Tcl_GetByteArrayFromObj(obj, &len);
   9 +      bytes = Tcl_GetStringFromObj(obj, &len);
  10        if (!bytes)
  11          return NULL;
  12        s = malloc(len + 1);
  13 @@ -339,7 +339,7 @@ static int utf_converter(ClientData cdat
  14    utftot += sizeof(char *) * objc;
  15    objc -= 5;
  16    for (i = 0; i < objc; i++) {
  17 -    byteptr = (char *) Tcl_GetByteArrayFromObj(objv[i], &len);
  18 +    byteptr = (char *) Tcl_GetStringFromObj(objv[i], &len);
  19      strings[i] = (char *) nmalloc(len + 1);
  20      utftot += len + 1;
  21      strncpy(strings[i], byteptr, len);