[cvslog] [CVS] Module eggdrop1.6: Change committed

cvs at eggheads.org cvs at eggheads.org
Mon Jan 4 12:38:37 CST 2010


CVSROOT    : /usr/local/cvsroot
Module     : eggdrop1.6
Commit time: 2010-01-04 18:38:36 UTC
Committer  : Rumen Stoyanov <pseudo at egg6.net>

Modified files:
     doc/Changes1.6 src/tcl.c

Log message:

Changed GetInt / GetIntFromObj's Tcl_Interp argument to NULL in tcl_resultint() to avoid an unneeded error message being stored in the interp result.

Patch by: pseudo

---------------------- diff included ----------------------
Index: eggdrop1.6/doc/Changes1.6
diff -u eggdrop1.6/doc/Changes1.6:1.53 eggdrop1.6/doc/Changes1.6:1.54
--- eggdrop1.6/doc/Changes1.6:1.53	Mon Jan  4 07:15:11 2010
+++ eggdrop1.6/doc/Changes1.6	Mon Jan  4 12:38:26 2010
@@ -1,4 +1,4 @@
-$Id: Changes1.6,v 1.53 2010/01/04 13:15:11 pseudo Exp $
+$Id: Changes1.6,v 1.54 2010/01/04 18:38:26 pseudo Exp $
 
 Eggdrop Changes (since version 1.6.0)
 
@@ -6,6 +6,11 @@
 
 1.6.20 (CVS):
 
+  - Changed GetInt / GetIntFromObj's Tcl_Interp argument to NULL in
+    tcl_resultint() to avoid an unneeded error message being stored in the
+    interp result.
+    Patch by: pseudo
+
   - Modified various checks to allow non-latin characters in handles. Added
     missing checks to tcl_adduser() and tcl_chhand().
   - Added telnet autodetection to src/dcc.c. Made changes to stop interpreting
Index: eggdrop1.6/src/tcl.c
diff -u eggdrop1.6/src/tcl.c:1.91 eggdrop1.6/src/tcl.c:1.92
--- eggdrop1.6/src/tcl.c:1.91	Sun Jan  3 07:27:32 2010
+++ eggdrop1.6/src/tcl.c	Mon Jan  4 12:38:26 2010
@@ -4,7 +4,7 @@
  *   Tcl initialization
  *   getting and setting Tcl/eggdrop variables
  *
- * $Id: tcl.c,v 1.91 2010/01/03 13:27:32 pseudo Exp $
+ * $Id: tcl.c,v 1.92 2010/01/04 18:38:26 pseudo Exp $
  */
 /*
  * Copyright (C) 1997 Robey Pointer
@@ -469,9 +469,9 @@
 {
   int result;
 #ifdef USE_TCL_OBJ
-  if (Tcl_GetIntFromObj(interp, Tcl_GetObjResult(interp), &result) != TCL_OK)
+  if (Tcl_GetIntFromObj(NULL, Tcl_GetObjResult(interp), &result) != TCL_OK)
 #else
-  if (Tcl_GetInt(interp, interp->result, &result) != TCL_OK)
+  if (Tcl_GetInt(NULL, interp->result, &result) != TCL_OK)
 #endif
     result = 0;
   return result;
----------------------- End of diff -----------------------


More information about the Changes mailing list