Changeset 81146

Timestamp:

07/25/11 19:00:49 (4 years ago)

Author:

jmr@…

Message:

move setting of startpwd outside the try block in extract_archive_to_tmpdir, so it will fail with its own error message instead of the finally block failing

File:

• trunk/base/src/registry2.0/portimage.tcl (modified) (1 diff)

trunk/base/src/registry2.0/portimage.tcl

@@ -281 +281 @@
 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