Modified: branches/release_2_0/base/src/registry2.0/portimage.tcl (81367 => 81368)
--- branches/release_2_0/base/src/registry2.0/portimage.tcl 2011-07-30 00:18:23 UTC (rev 81367)
+++ branches/release_2_0/base/src/registry2.0/portimage.tcl 2011-07-30 00:24:42 UTC (rev 81368)
@@ -280,9 +280,9 @@
# returns: path to the extracted directory
proc extract_archive_to_tmpdir {location} {
set extractdir [mkdtemp [file join [macports::gettmpdir] mpextractXXXXXXXX]]
+ set startpwd [pwd]
try {
- set startpwd [pwd]
if {[catch {cd $extractdir} err]} {
throw MACPORTS $err
}