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

[jmr at macports.org]

Revision: 136509
          https://trac.macports.org/changeset/136509
Author:   jmr at macports.org
Date:     2015-05-19 18:48:06 -0700 (Tue, 19 May 2015)
Log Message:
-----------
don't delete files we didn't create in macports::fetch_port

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

Modified: trunk/base/src/macports1.0/macports.tcl
===================================================================
--- trunk/base/src/macports1.0/macports.tcl	2015-05-20 00:37:02 UTC (rev 136508)
+++ trunk/base/src/macports1.0/macports.tcl	2015-05-20 01:48:06 UTC (rev 136509)
@@ -1556,15 +1556,19 @@
     }
     ui_debug $cmdline
     if {[catch {exec {*}$cmdline} result]} {
-        # clean up the archive, we don't need it anymore
-        file delete [file join $fetchdir $fetchfile]
+        if {!$local} {
+            # clean up the archive, we don't need it anymore
+            file delete [file join $fetchdir $fetchfile]
+        }
 
         cd $oldpwd
         return -code error "Port extract failed: $result"
     }
 
-    # clean up the archive, we don't need it anymore
-    file delete [file join $fetchdir $fetchfile]
+    if {!$local} {
+        # clean up the archive, we don't need it anymore
+        file delete [file join $fetchdir $fetchfile]
+    }
 
     cd $oldpwd
     return [file join $fetchdir $portname]
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <https://lists.macosforge.org/pipermail/macports-changes/attachments/20150519/8f037e04/attachment.html>