[Orxonox-commit 2986] r7683 - code/branches/ois_update/data/tcl

[youngk at orxonox.net]

Author: youngk
Date: 2010-11-30 23:09:18 +0100 (Tue, 30 Nov 2010)
New Revision: 7683

Modified:
   code/branches/ois_update/data/tcl/init.tcl
Log:
Tcl will now initialize properly on Mac.

Modified: code/branches/ois_update/data/tcl/init.tcl
===================================================================
--- code/branches/ois_update/data/tcl/init.tcl	2010-11-30 22:08:38 UTC (rev 7682)
+++ code/branches/ois_update/data/tcl/init.tcl	2010-11-30 22:09:18 UTC (rev 7683)
@@ -98,6 +98,11 @@
 set filepath [info script]
 #set ::orxonox::mediapath [string range $filepath 0 [string last "/" $filepath]]
 set ::orxonox::mediapath [file dirname $filepath]
+
+if {![info exists auto_path]} {
+   set auto_path [list]
+}
+
 if {[lsearch $auto_path $::orxonox::mediapath] == -1} {
     lappend auto_path $::orxonox::mediapath
 }