[114592] trunk/dports/_resources/port1.0/group/github-1.0.tcl

[mww at macports.org]

Revision: 114592
          https://trac.macports.org/changeset/114592
Author:   mww at macports.org
Date:     2013-12-10 23:33:11 -0800 (Tue, 10 Dec 2013)
Log Message:
-----------
be more intractable in the search for the worksrcdir

Modified Paths:
--------------
    trunk/dports/_resources/port1.0/group/github-1.0.tcl

Modified: trunk/dports/_resources/port1.0/group/github-1.0.tcl
===================================================================
--- trunk/dports/_resources/port1.0/group/github-1.0.tcl	2013-12-11 02:08:31 UTC (rev 114591)
+++ trunk/dports/_resources/port1.0/group/github-1.0.tcl	2013-12-11 07:33:11 UTC (rev 114592)
@@ -78,14 +78,19 @@
     distname                ${github.project}-${github.version}
     fetch.ignore_sslcert    yes
 
+    # if worksrcpath does not exist, try to guess the directory that should be and rename it
     post-extract {
         if {![file exists ${worksrcpath}] && \
                 ${fetch.type} eq "standard" && \
                 ${master_sites} eq ${github.master_sites} && \
                 [llength ${distfiles}] > 0 && \
-                [llength [glob -nocomplain ${workpath}/*]] > 0 && \
-                [file isdirectory [glob ${workpath}/*]]} {
-            move [glob ${workpath}/*] ${worksrcpath}
+                [llength [glob -nocomplain ${workpath}/*]] > 0} {
+            foreach item [glob ${workpath}/*] {
+                if {[file isdirectory ${item}]} {
+                    move ${item} ${worksrcpath}
+                    break
+                }
+            }
         }
     }
 
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <https://lists.macosforge.org/pipermail/macports-changes/attachments/20131210/c247e8b9/attachment.html>