[60447] trunk/base/src/package1.0/portarchive.tcl

[snc at macports.org]

Revision: 60447
          http://trac.macports.org/changeset/60447
Author:   snc at macports.org
Date:     2009-11-12 11:53:46 -0800 (Thu, 12 Nov 2009)
Log Message:
-----------
create archive directory if missing, prevents error-out in #17579

Modified Paths:
--------------
    trunk/base/src/package1.0/portarchive.tcl

Modified: trunk/base/src/package1.0/portarchive.tcl
===================================================================
--- trunk/base/src/package1.0/portarchive.tcl	2009-11-12 19:39:15 UTC (rev 60446)
+++ trunk/base/src/package1.0/portarchive.tcl	2009-11-12 19:53:46 UTC (rev 60447)
@@ -100,6 +100,10 @@
         set archive.fulldestpath ${archive.destpath}
     }
 
+    if {![file exists ${archive.fulldestpath}] {
+        file mkdir ${archive.fulldestpath}
+    }
+
     # Determine if archive should be skipped
     set skipped 0
     if {[check_statefile target org.macports.archive $target_state_fd]} {
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://lists.macosforge.org/pipermail/macports-changes/attachments/20091112/24853186/attachment.html>