[cvslog] Module eggdrop1.6: Change committed

cvslog cvs at tsss.iavalley.cc.ia.us
Wed Jan 24 07:44:00 CST 2001


CVSROOT    : /usr/local/cvsroot
Module     : eggdrop1.6
Commit time: 2001-01-24 13:43:46 UTC

Modified files:
     src/patch.h src/tcl.c

Log message:

Call Tcl_FindExecutable() in tcl.c before Tcl_SetSystemEncoding()

---------------------- diff included ----------------------
Index: eggdrop1.6/src/patch.h
diff -u eggdrop1.6/src/patch.h:1.419 eggdrop1.6/src/patch.h:1.420
--- eggdrop1.6/src/patch.h:1.419	Mon Jan 22 22:33:56 2001
+++ eggdrop1.6/src/patch.h	Wed Jan 24 07:43:36 2001
@@ -10,7 +10,7 @@
  * statement, leave the rest of the file alone, this allows better
  * overlapping patches.
  * 
- * $Id: patch.h,v 1.419 2001/01/23 04:33:56 guppy Exp $
+ * $Id: patch.h,v 1.420 2001/01/24 13:43:36 tothwolf Exp $
  */
 /* 
  * Copyright (C) 1997  Robey Pointer
@@ -41,12 +41,12 @@
  *
  *
  */
-patch("980223268");		/* current unixtime */
+patch("980342348");		/* current unixtime */
 /*
  *
  *
  */
-patch("revengebot");
+patch("i18n-fix");
 /*
  *
  *
Index: eggdrop1.6/src/tcl.c
diff -u eggdrop1.6/src/tcl.c:1.28 eggdrop1.6/src/tcl.c:1.29
--- eggdrop1.6/src/tcl.c:1.28	Mon Jan 22 17:47:33 2001
+++ eggdrop1.6/src/tcl.c	Wed Jan 24 07:43:36 2001
@@ -4,7 +4,7 @@
  *   Tcl initialization
  *   getting and setting Tcl/eggdrop variables
  * 
- * $Id: tcl.c,v 1.28 2001/01/22 23:47:33 guppy Exp $
+ * $Id: tcl.c,v 1.29 2001/01/24 13:43:36 tothwolf Exp $
  */
 /* 
  * Copyright (C) 1997  Robey Pointer
@@ -505,6 +505,14 @@
   char pver[1024] = "";
 #endif
 
+#ifndef HAVE_PRE7_5_TCL 
+  /* This is used for 'info nameofexecutable'.
+   * The filename in argv[0] must exist in a directory listed in
+   * the environment variable PATH for it to register anything.
+   */
+  Tcl_FindExecutable(argv[0]);
+#endif
+
 /* Code based on Tcl's TclpSetInitialEncodings() */
 #if TCL_MAJOR_VERSION >= 8 && TCL_MINOR_VERSION >= 1
   /* Determine the current encoding from the LC_* or LANG environment
@@ -576,14 +584,6 @@
   /* Keep the iso8859-1 encoding preloaded.  The IO package uses it for
    * gets on a binary channel. */
   Tcl_GetEncoding(NULL, "iso8859-1");
-#endif
-
-#ifndef HAVE_PRE7_5_TCL 
-  /* This is used for 'info nameofexecutable'.
-   * The filename in argv[0] must exist in a directory listed in
-   * the environment variable PATH for it to register anything.
-   */
-  Tcl_FindExecutable(argv[0]);
 #endif
 
   /* Create Tcl interpreter */
----------------------- End of diff -----------------------



More information about the Changes mailing list