[cvslog] Module eggdrop1.6: Change committed

cvslog cvs at tsss.iavalley.cc.ia.us
Fri Apr 6 17:41:01 CST 2001


CVSROOT    : /usr/local/cvsroot
Module     : eggdrop1.6
Commit time: 2001-04-06 22:40:02 UTC
Commited by: guppy

Modified files:
     doc/UPDATES1.6 src/tclhash.c

Log message:

fixed a channel add bug

---------------------- diff included ----------------------
Index: eggdrop1.6/doc/UPDATES1.6
diff -u eggdrop1.6/doc/UPDATES1.6:1.82 eggdrop1.6/doc/UPDATES1.6:1.83
--- eggdrop1.6/doc/UPDATES1.6:1.82	Fri Apr  6 17:31:03 2001
+++ eggdrop1.6/doc/UPDATES1.6	Fri Apr  6 17:39:52 2001
@@ -4,6 +4,7 @@
 
 1.6.4
 Found by  Fixed by  What...
+various   Darude    fixed channel add #chan from crashing the bot
           Eugene    various small typo fixes
           nakee     solaris make gcc fix
           Zart      small fix to the unicode stuff to handle Tcl > v9
Index: eggdrop1.6/src/tclhash.c
diff -u eggdrop1.6/src/tclhash.c:1.24 eggdrop1.6/src/tclhash.c:1.25
--- eggdrop1.6/src/tclhash.c:1.24	Sat Mar 10 16:38:03 2001
+++ eggdrop1.6/src/tclhash.c	Fri Apr  6 17:39:52 2001
@@ -7,7 +7,7 @@
  *   (non-Tcl) procedure lookups for msg/dcc/file commands
  *   (Tcl) binding internal procedures to msg/dcc/file commands
  * 
- * $Id: tclhash.c,v 1.24 2001/03/10 22:38:03 guppy Exp $
+ * $Id: tclhash.c,v 1.25 2001/04/06 22:39:52 guppy Exp $
  */
 /* 
  * Copyright (C) 1997  Robey Pointer
@@ -661,16 +661,17 @@
    * the called proc name and it's parameters. This should render us a bit
    * less helpless when we see context dumps.
    */
-  const char *msg = "TCL proc: %s, param: %s";
-  char *buf;
-
-  Context;
-  buf = nmalloc(strlen(msg) + (proc ? strlen(proc) : 6)
-		+ (param ? strlen(param) : 6) + 1);
-  sprintf(buf, msg, proc ? proc : "<null>", param ? param : "<null>");
-  ContextNote(buf);
-  nfree(buf);
-
+  {
+    const char *msg = "TCL proc: %s, param: %s";
+    char *buf;
+
+    Context;
+    buf = nmalloc(strlen(msg) + (proc ? strlen(proc) : 6)
+		  + (param ? strlen(param) : 6) + 1);
+    sprintf(buf, msg, proc ? proc : "<null>", param ? param : "<null>");
+    ContextNote(buf);
+    nfree(buf);
+  }
   x = Tcl_VarEval(interp, proc, param, NULL);
   Context;
   if (x == TCL_ERROR) {
----------------------- End of diff -----------------------



More information about the Changes mailing list