[eggheads-patches] PATCH: tclfree2.patch

Dobos Lorant drummer at sophia.jpte.hu
Mon Oct 18 14:18:24 CST 1999


diff -ur eggdrop1.3.1011/src/mod/channels.mod/tclchan.c eggdrop1.3/src/mod/channels.mod/tclchan.c
--- eggdrop1.3.1011/src/mod/channels.mod/tclchan.c	Mon Sep 27 01:14:24 1999
+++ eggdrop1.3/src/mod/channels.mod/tclchan.c	Sun Oct 17 15:14:53 1999
@@ -1445,7 +1445,6 @@
   strncat(buf, glob_chanset, 2047 - strlen(buf));
   strncat(buf, options, 2047 - strlen(buf));
   buf[2047] = 0;
-  /* drummer: Tcl8.0: Tcl_SplitList does not use irp, can be NULL */
   if (Tcl_SplitList(NULL, buf, &items, &item) != TCL_OK)
     return TCL_ERROR;
   context;
@@ -1487,6 +1486,7 @@
   if ((tcl_channel_modify(irp, chan, items, item) != TCL_OK) && !chan_hack) {
     ret = TCL_ERROR;
   }
+  Tcl_Free((char*) item);
   if (join && !channel_inactive(chan) && module_find("irc", 0, 0))
     dprintf(DP_SERVER, "JOIN %s %s\n", chan->name, chan->key_prot);
   return ret; 





More information about the Patches mailing list