[81146] trunk/base/src/registry2.0/portimage.tcl

[jmr at macports.org]

Revision: 81146
          http://trac.macports.org/changeset/81146
Author:   jmr at macports.org
Date:     2011-07-25 19:00:49 -0700 (Mon, 25 Jul 2011)
Log 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

Modified Paths:
--------------
    trunk/base/src/registry2.0/portimage.tcl

Modified: trunk/base/src/registry2.0/portimage.tcl
===================================================================
--- trunk/base/src/registry2.0/portimage.tcl	2011-07-26 01:56:54 UTC (rev 81145)
+++ trunk/base/src/registry2.0/portimage.tcl	2011-07-26 02:00:49 UTC (rev 81146)
@@ -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
         }
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://lists.macosforge.org/pipermail/macports-changes/attachments/20110725/01e671cd/attachment.html>