[80287] trunk/base/src/macports1.0/macports.tcl

[jmr at macports.org]

Revision: 80287
          http://trac.macports.org/changeset/80287
Author:   jmr at macports.org
Date:     2011-07-08 09:50:30 -0700 (Fri, 08 Jul 2011)
Log Message:
-----------
set a fake env(HOME) if none exists, to appease tcl library code

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

Modified: trunk/base/src/macports1.0/macports.tcl
===================================================================
--- trunk/base/src/macports1.0/macports.tcl	2011-07-08 16:33:53 UTC (rev 80286)
+++ trunk/base/src/macports1.0/macports.tcl	2011-07-08 16:50:30 UTC (rev 80287)
@@ -490,6 +490,8 @@
     } else {
         # Otherwise define the user directory as a direcotory that will never exist
         set macports::macports_user_dir "/dev/null/NO_HOME_DIR"
+        # Tcl library code wants to do tilde expansion in various places
+        set env(HOME) ${macports::macports_user_dir}
     }
 
     # set up platform info variables
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://lists.macosforge.org/pipermail/macports-changes/attachments/20110708/e95c2db1/attachment.html>