[Tkabber-dev] r828 - trunk/tkabber

tkabber-svn at jabber.ru tkabber-svn at jabber.ru
Fri Dec 15 23:58:14 MSK 2006


Author: sergei
Date: 2006-12-15 23:58:11 +0300 (Fri, 15 Dec 2006)
New Revision: 828

Modified:
   trunk/tkabber/ChangeLog
   trunk/tkabber/plugins.tcl
Log:
	* plugins.tcl: Worked around the bug in Tcl 8.3 when
	  [glob -type d] doesn't return symbolic links to directories.


Modified: trunk/tkabber/ChangeLog
===================================================================
--- trunk/tkabber/ChangeLog	2006-12-15 17:24:52 UTC (rev 827)
+++ trunk/tkabber/ChangeLog	2006-12-15 20:58:11 UTC (rev 828)
@@ -1,3 +1,8 @@
+2006-12-15  Sergei Golovan  <sgolovan at nes.ru>
+
+	* plugins.tcl: Worked around the bug in Tcl 8.3 when
+	  [glob -type d] doesn't return symbolic links to directories.
+
 2006-12-10  Sergei Golovan  <sgolovan at nes.ru>
 
 	* plugins/unix/menu8.4.tcl: Use this plugin with menu workaround

Modified: trunk/tkabber/plugins.tcl
===================================================================
--- trunk/tkabber/plugins.tcl	2006-12-15 17:24:52 UTC (rev 827)
+++ trunk/tkabber/plugins.tcl	2006-12-15 20:58:11 UTC (rev 828)
@@ -22,7 +22,7 @@
 }
 
 proc plugins::load_dir {plugins_dir} {
-    foreach dir [lsort [glob -nocomplain -type d [file join $plugins_dir *]]] {
+    foreach dir [lsort [glob -nocomplain -type {d l} [file join $plugins_dir *]]] {
 	set file [file join $dir [file tail $dir].tcl]
 	if {[file exists $file]} {
 	    debugmsg plugins "Loading plugin from $file"



More information about the Tkabber-dev mailing list