Modified: branches/release_2_0/base/src/macports1.0/macports.tcl (81543 => 81544)
--- branches/release_2_0/base/src/macports1.0/macports.tcl 2011-08-01 13:55:15 UTC (rev 81543)
+++ branches/release_2_0/base/src/macports1.0/macports.tcl 2011-08-01 14:37:46 UTC (rev 81544)
@@ -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