You are viewing a plain text version of this content. The canonical link for it is here.
Posted to rivet-dev@tcl.apache.org by mx...@apache.org on 2008/01/08 18:10:42 UTC
svn commit: r610070 - in /tcl/rivet/trunk: ChangeLog rivet/init.tcl
rivet/packages/dio/dio.tcl rivet/packages/dio/dio_Mysql.tcl
Author: mxmanghi
Date: Tue Jan 8 09:10:41 2008
New Revision: 610070
URL: http://svn.apache.org/viewvc?rev=610070&view=rev
Log:
* rivet/packages/dio/dio.tcl: auto_path shouldn't be set
or modified outsite init.tcl (unless the user want to do it
by him/herself)
* rivet/init.tcl: We want the Tcl code specific to an
installation to take precedence over other Tcl packages
or other versions of the same stuff. Therefore I put
the references to the rivetlib directory in the first
positions in auto_path.
Modified:
tcl/rivet/trunk/ChangeLog
tcl/rivet/trunk/rivet/init.tcl
tcl/rivet/trunk/rivet/packages/dio/dio.tcl
tcl/rivet/trunk/rivet/packages/dio/dio_Mysql.tcl
Modified: tcl/rivet/trunk/ChangeLog
URL: http://svn.apache.org/viewvc/tcl/rivet/trunk/ChangeLog?rev=610070&r1=610069&r2=610070&view=diff
==============================================================================
--- tcl/rivet/trunk/ChangeLog (original)
+++ tcl/rivet/trunk/ChangeLog Tue Jan 8 09:10:41 2008
@@ -1,3 +1,22 @@
+2008-01-08 Massimo Manghi <ma...@unipr.it>
+
+ * rivet/packages/dio/dio.tcl: auto_path shouldn't be set
+ or modified outsite init.tcl
+
+ * rivet/init.tcl: We want the Tcl code specific to an
+ installation to take precedence over other Tcl packages
+ or other versions of the same stuff. Therefore I put
+ the references to the rivetlib directory in the first
+ positions in auto_path.
+
+2008-01-07 Massimo Manghi <ma...@unipr.it>
+
+ * src/apache-2/TclWebapache.c: Fixed timestamp printed in the
+ DATE_LOCAL and DATE_GMT fields of the environment table.
+
+ * src/apache-2/mod_rivet.h: Fixed definitions for RIVET_INIT and
+ RIVET_DIR. I couldn't fix SERVER_CONF though
+
2008-01-06 Massimo Manghi <ma...@unipr.it>
* Makefile.am: target 'uninstall-local' added. Stuff in
Modified: tcl/rivet/trunk/rivet/init.tcl
URL: http://svn.apache.org/viewvc/tcl/rivet/trunk/rivet/init.tcl?rev=610070&r1=610069&r2=610070&view=diff
==============================================================================
--- tcl/rivet/trunk/rivet/init.tcl (original)
+++ tcl/rivet/trunk/rivet/init.tcl Tue Jan 8 09:10:41 2008
@@ -75,9 +75,11 @@
## Add the packages directory to the auto_path.
## If we have a packages$tcl_version directory
## (IE: packages8.3, packages8.4) append that as well.
+
+ ## The packages directory come right after the rivet-tcl directory.
set pkgpath [file join [file dirname [info script]] packages]
- lappend auto_path $pkgpath
- lappend auto_path ${pkgpath}-local
+ set auto_path [linsert $auto_path 1 $pkgpath]
+ set auto_path [linsert $auto_path 2 ${pkgpath}-local]
if { [file exists ${pkgpath}$::tcl_version] } {
lappend auto_path ${pkgpath}$::tcl_version
@@ -85,6 +87,8 @@
## This will allow users to create proc libraries and tclIndex files
## in the local directory that can be autoloaded.
+ ## Perhaps this must go to the front of the list to allow the user
+ ## to override even Rivet's procs.
lappend auto_path .
}
Modified: tcl/rivet/trunk/rivet/packages/dio/dio.tcl
URL: http://svn.apache.org/viewvc/tcl/rivet/trunk/rivet/packages/dio/dio.tcl?rev=610070&r1=610069&r2=610070&view=diff
==============================================================================
--- tcl/rivet/trunk/rivet/packages/dio/dio.tcl (original)
+++ tcl/rivet/trunk/rivet/packages/dio/dio.tcl Tue Jan 8 09:10:41 2008
@@ -18,7 +18,7 @@
catch {package require Tclx}
package require Itcl
-set auto_path [linsert $auto_path 0 [file dirname [info script]]]
+##set auto_path [linsert $auto_path 0 [file dirname [info script]]]
namespace eval ::DIO {
Modified: tcl/rivet/trunk/rivet/packages/dio/dio_Mysql.tcl
URL: http://svn.apache.org/viewvc/tcl/rivet/trunk/rivet/packages/dio/dio_Mysql.tcl?rev=610070&r1=610069&r2=610070&view=diff
==============================================================================
--- tcl/rivet/trunk/rivet/packages/dio/dio_Mysql.tcl (original)
+++ tcl/rivet/trunk/rivet/packages/dio/dio_Mysql.tcl Tue Jan 8 09:10:41 2008
@@ -50,7 +50,6 @@
if {![lempty $pass]} { lappend command -password $pass }
if {![lempty $port]} { lappend command -port $port }
if {![lempty $host]} { lappend command -host $host }
-
if {[catch $command error]} { return -code error $error }
set conn $error
---------------------------------------------------------------------
To unsubscribe, e-mail: rivet-cvs-unsubscribe@tcl.apache.org
For additional commands, e-mail: rivet-cvs-help@tcl.apache.org