[66607] trunk/base/src/macports1.0/macports_fastload.tcl.in

[raimue at macports.org]

Revision: 66607
          http://trac.macports.org/changeset/66607
Author:   raimue at macports.org
Date:     2010-04-17 20:40:29 -0700 (Sat, 17 Apr 2010)
Log Message:
-----------
macports1.0/macports_fastload.tcl.in:
Source packages relative to the location of this file

Modified Paths:
--------------
    trunk/base/src/macports1.0/macports_fastload.tcl.in

Modified: trunk/base/src/macports1.0/macports_fastload.tcl.in
===================================================================
--- trunk/base/src/macports1.0/macports_fastload.tcl.in	2010-04-18 03:33:30 UTC (rev 66606)
+++ trunk/base/src/macports1.0/macports_fastload.tcl.in	2010-04-18 03:40:29 UTC (rev 66607)
@@ -71,7 +71,7 @@
     }
 }
 
-set sharetcldir "@macports_tcl_dir@"
+set sharetcldir [file normalize [file join [file dirname [info script]] ..]]
 if {[file exists $sharetcldir]} {
     foreach dir [glob -directory $sharetcldir *] {
         set pkgindex [file join $dir pkgIndex.tcl]
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://lists.macosforge.org/pipermail/macports-changes/attachments/20100417/468b4a4d/attachment.html>